Обновление настроек отображения информации о дисковом пространстве во всех формах Delphi: единый механизм отправки событий

Delphi , Программа и Интерфейс , Формы

Отправка событий во все формы в Delphi

В процессе разработки приложений на Delphi часто возникает необходимость обновления данных или настроек во всех открытых формах одновременно. Примером такой задачи может служить изменение единиц измерения дискового пространства (например, байты, КБ, МБ, ГБ, ТБ) в различных формах приложения. Для решения этой задачи можно использовать механизм событий и наследование, что позволяет обрабатывать обновление настроек в каждой форме без необходимости явного перечисления и вызова методов для каждой формы отдельно.

Проблема

Рассмотрим ситуацию, когда в приложении открыто несколько форм, отображающих информацию о дисковом пространстве в единых единицах измерения. Пользователь может изменить эти единицы в настройках, и после сохранения изменений необходимо обновить отображение во всех открытых формах.

Решение

В каждой форме определен защищенный процедурный метод SetViewSettings, который отвечает за обновление настроек отображения. Формы являются потомками базового класса, который объявляет SetViewSettings как виртуальный и абстрактный метод. Отображаемые формы переопределяют метод базового класса.

Для обновления настроек во всех формах используется следующий подход:

procedure TApplicationForms.SetUnits;
var
  I: Integer;
begin
  for I := 0 to Screen.FormCount - 1 do
    if Screen.Forms[I] is TfrAncestorInfo then
      with Screen.Forms[I] as TfrAncestorInfo do
        acSetUnits.Execute;
end;

Этот метод вызова слишком рискован, так как при создании новых форм-потомков базового класса TfrAncestorInfo можно забыть про переопределение метода SetViewSettings, что приведет к исключению 'Abstract Error'.

Альтернативный ответ: Использование сообщений Windows

Один из способов решения проблемы - использование пользовательских сообщений Windows. Это позволяет избежать необходимости перечисления и вызова всех форм вручную, а также исключает проблемы, связанные с виртуальными и абстрактными методами.

const
  WM_SETTINGS_UPDATED = WM_APP + 1;

Для отправки сообщения во все формы используется следующий метод:

procedure TApplicationForms.BroadcastSettingsUpdate;
var
  I: Integer;
begin
  for I := 0 to Screen.FormCount - 1 do
    Screen.Forms[I].Perform(WM_SETTINGS_UPDATED, 0, 0);
end;

В каждом потомке базового класса, который должен реагировать на сообщение о обновлении настроек, следует объявить обработчик:

type
  TSomeForm = class(TBaseForm)
  private
    procedure WMSettingsUpdated(var Message: TMessage); message WM_SETTINGS_UPDATED;
  protected
    procedure SetViewSettings;
  end;

Обработчик сообщений:

procedure TSomeForm.WMSettingsUpdated(var Message: TMessage);
begin
  SetViewSettings;
end;

И сам метод SetViewSettings:

procedure TSomeForm.SetViewSettings;
begin
  // Логика обновления настроек отображения
end;

Комментарии

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

Также стоит отметить, что можно использовать механизм TAction для распространения акций по всему приложению, как это реализовано в компоненте TStatusBar для отображения подсказок. Это подразумевает переопределение метода TComponent.ExecuteAction() в интересующих формах для реакции на акцию.

Использование System.Messaging может быть альтернативой, которая работает на всех платформах и не ограничена рамками форм, однако это может быть избыточным решением для простых задач внутри приложения.

В статье был рассмотрен механизм отправки событий во все формы в Delphi для обновления настроек отображения информации о дисковом пространстве. Предложенный подход позволяет избежать ручного перечисления и вызова методов для каждой формы, а также обеспечивает гибкость и безопасность в управлении событиями в приложении.

Создано по материалам из источника по ссылке.

В процессе разработки приложений на Delphi необходимо обновить информацию во всех открытых формах, используя механизмы событий и наследования, чтобы избежать ручного перечисления и обработки каждой формы отдельно.

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

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

:: Главная :: Формы ::