Как сообщить всем формам (и невидимым) об изменении глобальных значений

Delphi , Программа и Интерфейс , Приложения чужие

Один из способов - создать пользовательское сообщение и использовать метод preform чтобы разослать его всем формам из массива Screen.Forms.

{ Code for Unit1 }
const
  UM_MyGlobalMessage = WM_USER + 1;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    {Private declarations}
    procedure UMMyGlobalMessage(var AMessage: TMessage);
    message UM_MyGlobalMessage;
  public
    {Public declarations}
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

uses Unit2;

procedure TForm1.FormShow(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.UMMyGlobalMessage(var AMessage: TMessage);
begin
  Label1.Left := AMessage.WParam;
  Label1.Top := AMessage.LParam;
  Form1.Caption := 'Got It!';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  f: integer;
begin
  for f := 0 to Screen.FormCount - 1 do
    Screen.Forms[f].Perform(UM_MyGlobalMessage, 42, 42);
end;

{ Code for Unit2 }
const
  UM_MyGlobalMessage = WM_USER + 1;

type
  TForm2 = class(TForm)
    Label1: TLabel;
  private
    {Private declarations}
    procedure UMMyGlobalMessage(var AMessage: TMessage);
    message UM_MyGlobalMessage;
  public
    {Public declarations}
  end;

var
  Form2: TForm2;

implementation
{$R *.DFM}

procedure TForm2.UMMyGlobalMessage(var AMessage: TMessage);
begin
  Label1.Left := AMessage.WParam;
  Label1.Top := AMessage.LParam;
  Form2.Caption := 'Got It!';
end;

Пример кода, вдохновленный вирусом компьютера!

Ответ на ваш вопрос: да, создание пользовательского сообщения и использование метода Perform для отправки его всем формам в массиве Screen.Forms - это один из способов уведомить все формы (включая невидимые) о изменениях глобальных значений.

Далее идет разбивка кода:

1. В модуле Unit1 создается новый пользовательский тип сообщения (UM_MyGlobalMessage), который является WM_USER + 1. Это позволяет перехватывать и обрабатывать это конкретное сообщение.
2. Форма (TForm1) определяет три процедуры: FormShow (вызывается при отображении формы), Button1Click (вызывается при клике кнопки) и UMMyGlobalMessage (процедура, которая обрабатывает пользовательское сообщение).
3. В UMMyGlobalMessage позиция лейбла обновляется в зависимости от параметров сообщения (WParam и LParam) и заголовок формы изменяется на "Got It!".
4. В Button1Click цикл проходит по всем формам в массиве Screen.Forms (включая невидимые) и отправляет пользовательское сообщение с помощью метода Perform, передавая код сообщения (UM_MyGlobalMessage) и два произвольных значения для WParam и LParam.

В модуле Unit2 определена аналогичная форма (TForm2) с идентичной реализацией UMMyGlobalMessage. Это позволяет проверить, работает ли уведомление между несколькими формами.

В целом, этот код демонстрирует, как отправлять пользовательское сообщение всем формам в приложении с помощью метода Perform. Однако стоит помнить, что это подход может иметь последствия для производительности и должен использоваться с осторожностью.

Если вы ищете альтернативное решение, рассмотрите использование более централизованной механики событий или системы сообщений, таких как глобальный обработчик событий или встроенная система TMessageBus Delphi. Эти подходы могут обеспечить более масштабируемый и эффективный способ уведомлять несколько форм о изменениях глобальных значений.

Статья описывает способ сообщения всем формам (включая невидимым) об изменении глобальных значений, создавая пользовательское сообщение и используя метод preform для его распространения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Приложения чужие ::