如何隐藏在Delphi中的MDI子窗体？(How to hide a MDI Child form

如何隐藏在Delphi一个MDIChild窗口？

我使用的FormClose（）我的MDI儿童的情况下，本代码，但它似乎不工作：

procedure TfrmInstrument.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
  ShowWindow(Handle, SW_HIDE);
  frmMainForm.MDIChildClosed(Handle);
end;

我的孩子窗口是最小化的，而不是被隐藏。

Answer 1:

有一个在受保护的程序TCustomForm定义为：

procedure TCustomForm.VisibleChanging;
begin
  if (FormStyle = fsMDIChild) and Visible and (Parent = nil) then
    raise EInvalidOperation.Create(SMDIChildNotVisible);
end;

覆盖在你的MDI子窗口为：

procedure TMDIChildForm.VisibleChanging;
begin
  // :-P
end;

这里有一个简单的例子

阅读的Jeroen的评论之后，我尝试另一种解决方案，它的工作原理为好，但有一点闪烁：

procedure TMDIChildForm.VisibleChanging;
begin
  if Visible then
    FormStyle := fsNormal
  else
    FormStyle := fsMDIChild;
end;

也许这适用于所有的Windows版本。

PS：我没有找到与Windows 2k3SP2 x86和Windows 7旗舰版x86的第一个解决方案的任何问题

Answer 2:

你无法隐藏MDI子窗口。 这是一个Win32限制。

文章来源: How to hide a MDI Child form in Delphi?