最小化应用程序时隐藏表单

Question

我有一个主表单和一个状态表单，当我在我的应用程序中进行工作时会显示它们。如果工作完成，我只需在状态表上调用Hide，状态表就会消失。

当我最小化主窗体而等待窗体可见时，就会出现我的问题。然后这两种形式都被隐藏了，这就是我想要的。但是，如果在主窗体最小化时工作完成，那么当我恢复它时，状态窗体也会恢复，即使在最小化时调用了Hide。

Visible 似乎是False 用于应用程序最小化时的状态表单，因此调用Hide 似乎没有效果（帮助说它只是将Visible 设置为False）。

这些观察正确吗？当应用程序再次获得焦点时，表单的可见性如何恢复？如何在应用程序最小化时隐藏我的表单？

Answer 1

警告：我不能 100% 确定以下方法是否安全。

如果您不需要相同的表单对象在应用程序的生命周期内保持活动状态（您很可能不需要），那么您可以尝试禁用弹出表单的自动创建（项目/选项）然后创建并显示它

Application.CreateForm(TForm2, Form2);
Form2.Show;

然后释放它

Form2.Release;

这样表单不可能和主表单一起恢复。

Answer 2

显示表单的Visible 确实是假的，当应用程序最小化时调用Hide 没有任何作用，因为它作为最小化机制的一部分被应用程序隐藏了。

代码调用ShowOwnedPopups，首先在应用程序最小化时将“False”作为“bShow”，然后在应用程序恢复时将“True”作为“bShow”。由于该函数显示之前调用隐藏的所有窗口，因此更改表单的可见性 中间没有效果。

现在，请参阅函数文档的备注部分中的引用，

如果使用隐藏弹出窗口 ShowWindow 函数，随后 使用 fShow 调用 ShowOwnedPopups 参数设置为 TRUE 不会导致 要显示的窗口

因此，一种解决方案是在应用程序隐藏表单之前将其隐藏，这样在恢复时它就不会显示。但是接下来我们必须知道，当我们恢复时，显示表单是真的要隐藏还是显示。这可以通过在显示表单上放置属性或使用全局变量来实现。在下面，“ShouldBeVisible”是一个假设的属性，如果我们要显示信息，它将返回 true：

type
  TForm1 = class(TForm)
  ..
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  ...

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = SC_MINIMIZE) and Assigned(Form2) and Form2.Visible then
    Form2.Hide;
  inherited;
  if (Msg.CmdType = SC_RESTORE) and Assigned(Form2) and Form2.ShouldBeVisible then
    Form2.Show;
end;

Answer 3

我现在使用以下适合我的解决方案：

1. 在Application.OnRestore 恢复事件处理程序中，我调用StatusForm.NotifyRestored。如果状态表单不可见，则显式隐藏它。
2. 在我的状态表单中，我在布尔字段FShouldDisplay 中跟踪可见性。这是在 ShowStatusForm 和 HideStatusForm 方法中设置的。

---

procedure TMainForm.OnApplicationRestore(Sender : TObject);
begin
StatusForm.NotifyRestored;
end;

procedure TStatusForm.NotifyRestored;
begin
if not FShouldDisplay then
  ShowWindow(Handle, SW_HIDE);
end;

procedure TStatusForm.ShowStatusForm;
begin
FShouldDisplay := True;
Show;
end;

procedure TStatusForm.HideStatusForm;
begin
FShouldDisplay := False;
Hide;
end;