delphi - 如何制作当另一个表单以模态方式显示时不被禁用的表单？

Question

我有一个实用程序对话框(非模式且位于顶部)，在使用应用程序时应该可以随时访问该对话框(想象一个可用于在使用应用程序时记笔记的对话框)即使显示模式对话框。

应用程序的其余部分无法更改。

这可能吗？我该怎么办？

Answer 1

当调用 ShowModal 时，所有现有的顶级窗口都将被禁用。这就是模态的运作方式。如果您有一个可以合理交互的窗口，则只需再次启用它即可。

例如，您可以将其添加到实用程序窗口中:

type
  TMyUtilityForm = class(TForm)
  protected
    procedure WMEnable(var Message: TWMEnable); message WM_ENABLE;
  end;
....
procedure TMyUtilityForm.WMEnable(var Message: TWMEnable);
begin
  if not Message.Enabled then
    EnableWindow(Handle, True);
  inherited;
end;

这将确保您的实用程序窗口永远不会被禁用。