forms - Delphi中如何将事件发送到多个表单

Question

在我的应用程序中，我有多个可以同时可见的表单，它们都以相同大小的单位显示磁盘空间(文件、硬盘大小等)。因此，它们都以字节、KB、MB、GB 或 TB 为单位显示磁盘空间。我还有一个单独的设置表单，用户可以在其中更改显示大小，他想要在其他表单中。一旦用户在设置表单中单击“确定”，我希望所有其他(打开)表单立即更改其大小设置。

每个表单都有一个 protected 过程 SetViewSettings，它负责处理这项工作。它们都是祖先形式的后代，该祖先形式将 SetViewSettings 定义为虚拟和抽象。实际显示的表单会覆盖祖先的 SetViewSettings 方法。到目前为止没有任何问题。

因为我不想调用每个单独的表单(FormX.SetViewSettings、FormY.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;

当用户单击“确定”时，从 SettingsForm 调用此过程。TFrAncestorInfo 是 TForm 的后代，将 SetViewSettings 方法声明为虚拟和抽象方法。 acSetUnits是一个Action，在TfrAncestorInfo中声明，它只调用SetViewSettings。这一切都工作正常，但风险在于创建 TFrAncestorInfo 的新后代形式，同时忘记重写 SetViewSettings 方法，在这种情况下，您将遇到“抽象错误”异常。

是否有任何替代方法可以在表单中调用 SetViewSettings 方法，而无需单独列出(调用)所有后代表单？我知道消息和事件，但我不知道如何在多种形式的情况下使用它们。一般来说:如何直接向所有 TFrAncestorInfo 后代表单发送消息或生成事件，而不单独列出它们？

Answer 1

一个选项(还有许多其他可能的选项)是向每个表单发送自定义消息。无需担心虚拟/抽象覆盖、类型检查等。只有实现消息处理程序的表单才会对消息使用react，其余的将简单地忽略它。

const
  WM_SETTINGS_UPDATED = WM_APP + 1;

procedure TApplicationForms.SetUnits;
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;

procedure TSomeForm.SetViewSettings;
begin
  //...
end;