显示/打开新表单时收到通知

Question

当模式 TForm 打开时，TApplication 会触发 OnModalBegin 事件。

当非模态 TForm 以与 TApplication.OnModalBegin 相同的方式显示/打开时，有没有办法收到通知？

Answer 1

您可以在 TApplicationEvents 上捕获一些消息，这些消息可以帮助您检测何时创建/显示新表单。

在 TApplicationEvents 组件的 OnMessage 事件上使用此代码。

procedure TFormMain.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  f:TCustomForm;

  function GetFormByHandle(const AHandle:Hwnd):TCustomForm;
  var
    i:Integer;
  begin
    Result := nil;
    for i := 0 to (Screen.FormCount - 1) do
      if (Screen.Forms[i].Handle = AHandle) then
        Result := Screen.Forms[i];
  end;
begin
  if (Msg.message = WM_DWMNCRENDERINGCHANGED) then begin  // detect new form
    f := GetFormByHandle(Msg.hwnd);  // Search on Scren by handle
    if Assigned(f) then
      Memo1.Lines.Add('   Name:' + f.Name + '   - Handle: ' + IntToStr(Msg.hwnd) + '  - Classname: ' + f.ClassName);  /7 show info
  end;
end;

创建新表单时，您可以使用句柄（带有消息参数）获取其信息并询问 Screen 对象（创建的单例）。