delphi - 如何在不访问源代码的情况下更改模态表单的标题？

Question

我有一个显示打印预览表单的第三方组件。我想将预览表单的标题更改为更合适的内容。不幸的是，我没有第三方组件的源代码，并且该组件不提供该功能。

是否可以以某种方式捕获正在显示的模态表单，并在显示之前设置其属性？

Answer 1

模态表单将导致调用表单停用，您可以在显示模态表单之前监听处于事件状态的表单上的 WM_ACTIVATE 消息。您将在消息处理程序中拥有激活窗口的句柄，您可以测试它是否是模式表单类型的表单。下面的示例测试类名，您可以使用 Spy++ 等工具获取该类名。请注意，在模态形式变得可见后，停用会短暂发生，但我认为不可能注意到不同的标题。

type
  TForm1 = class(TForm)
    ..
  protected
    procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;
  end;

procedure TForm1.WMActivate(var Message: TWMActivate);
var
  Form: TWinControl;
begin
  if Message.Active = WA_INACTIVE then begin
    Form := FindControl(Message.ActiveWindow);
    if Form is TCustomForm then begin
      if TCustomForm(Form).ClassName = 'TThirdPartyModalForm' then
        TCustomForm(Form).Caption := 'My caption';
    end;
  end;
  inherited;
end;