这个问题的答案在于非常有用的Window Features MSDN 主题。
相关信息是:
重叠或弹出窗口可以是
由另一个重叠或弹出窗口拥有
窗户。被拥有的地方有几个
对窗口的约束。
- 拥有的窗口在 z 顺序中始终位于其所有者之上。
- 当一个拥有的窗口的所有者被删除时系统会自动销毁它
销毁。
- 拥有的窗口在其所有者最小化时被隐藏。
您的应用程序中的主要窗体是其他弹出窗口的所有者(在 Windows 术语中,而不是 Delphi 术语中)。上面的第一个要点意味着拥有的窗口总是出现在主窗体(所有者)之上。
尝试创建一个包含 3 个表单的应用,并将它们全部展示出来。 .dpr 看起来像这样:
program OwnedWindows;
uses
Forms,
Main in 'Main.pas' {MainForm},
Popup1 in 'Popup1.pas' {PopupForm1},
Popup2 in 'Popup2.pas' {PopupForm2};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TMainForm, Main);
Application.CreateForm(TPopupForm1, PopupForm1);
Application.CreateForm(TPopupForm2, PopupForm2);
PopupForm1.Show;
PopupForm2.Show;
Application.Run;
end.
您会看到主表单始终位于其他两个表单的下方,但这些其他拥有的表单可以在彼此之上或之下。当您最小化主窗体时,它们都会消失。
如果您想让所有表单成为顶级无主窗口,您可以这样做:
procedure TPopupForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end;
在我的示例中同样适用于 TPopupForm2。这将导致所有 3 个窗口都有任务栏按钮。
另一种方法是恢复到Vista 之前的方式,并使应用程序的隐藏窗口成为顶级所有者窗口。为此,请确保 Application.MainFormOnTaskbar 为 False。跳过所有 CreateParams 代码,您现在将在任务栏上有一个窗口,并且您的任何窗口都可以在任何其他窗口之上,因为顶级所有者窗口是隐藏窗口 Application.Handle。当然,缺点是你失去了 Aero Peek。
所以,我想你需要做的是让主窗体像往常一样出现在任务栏上,但确保其他窗体不属于主窗体(在 Windows 意义上)。但是需要拥有它们以避免将它们放在任务栏中。因此,您可以使用 CreateParams 方法使隐藏的应用程序窗口成为所有者,如下所示:
procedure TOverlappedPopupForm.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := Application.Handle;
end;
尽管您在 cmets 中另有说明,但当我这样做时,我发现当我最小化主窗体时弹出窗体确实被隐藏了。并在主窗体恢复时再次显示。因此,我认为这确实可以完全解决您的问题。