delphi - 子窗体总是在父窗体之上

Question

我认为这是一次又一次出现在这里的问题，但是我查看了很多问题，并没有找到适合我的正确答案。

我有一个父表单，具有所有“正常”属性，现在我刚刚创建了一个子表单，也具有“正常”属性。在我的父窗体上，我有一个 ListView，当我单击 ListView 上的某个项目时，我会打开子窗体。

现在我需要将这个子窗体保留在主窗体的顶部，当我最小化子窗体时，顶部也会最小化，当我最大化程序时，我只看到子窗体，直到我关闭这个窗体。因此，在我关闭子窗体之前，带有 ListView 的主窗体将不可用。如果我从 ListView 中选择另一个项目，我会以相同的行为再次打开子窗体。

我不知道这是否很难实现，但我没有通过谷歌找到它。
这是我的简单演示代码:

unit Unit1;

var
  Form1: TForm1;


implementation

uses Desktop;

procedure TForm1.RemoteDesktop1Click(Sender: TObject);
var
  DesktopForm: TForm2;
begin
  DesktopForm:= TForm2.Create(Self);
  DesktopForm.Show;
end;

而桌面单元只是一个 VCL 表单，没有任何代码。

Answer 1

使用showModal .要最小化 MainWindow(所有窗口，实际上是最小化应用程序)，您应该在子窗体中覆盖 WMSysCommand:

procedure WMSyscommand(var Msg: TWmSysCommand); message WM_SYSCOMMAND;

.
.
.
procedure TForm2.WMSysCommand(var Msg: TWmSysCommand);
begin
  case (Msg.CmdType and $FFF0) of
    SC_MINIMIZE:  begin
                    Msg.Result := 0;
                    EnableWindow(Application.Handle, True);
                    Aplication.Minimize;
                  end;
    else inherited;
  end;
end;

也形成事件WindowStateChange可以在非 Windows 上使用。

我在 LXDE Fedora23 (Lazarus) 上运行了简单的测试，没有处理该事件，所有表单在模态时都已最小化。