4

如何在 Delphi 中隐藏 MDIChild 窗口?

我在我的 MDI 孩子的 FormClose() 事件中使用此代码,但它似乎不起作用:

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

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

4

2 回答 2

10

有一个受保护的过程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 Ultimate x86 上的第一个解决方案没有发现任何问题

于 2012-08-29T14:35:22.813 回答
0

您不能隐藏 MDI 子窗口。这是 Win32 的限制。

于 2012-08-29T13:30:04.270 回答