如何在Delphi中隐藏MDIChild窗口？
我在我的MDI子项的FormClose()事件中使用此代码,但它似乎不起作用：
procedure TfrmInstrument.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caNone; ShowWindow(Handle,SW_HIDE); frmMainForm.MDIChildClosed(Handle); end;
我的子窗口被最小化而不是被隐藏.
TCustomForm中有一个受保护的过程定义为：
原文链接：https://www.f2er.com/windows/371716.htmlprocedure 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上的第一个解决方案有任何问题
