Delphi中MDI窗体关闭问题

来源：百度知道 编辑：UC知道 时间：2024/05/25 17:53:46
几个MDIChildForm先是最小化。然后将其中一个最大化，再点击最大化这个MDIChildForm的关闭按钮，这个窗体将会关闭。问题是当这个窗体关闭的时候为什么原先最小化的其他几个窗体中，有一个自动最大化了呢？
MDIChildForm是动态创建，关闭事件中代码是 action:=cafree;

调用前先调用一下这个函数
procedure TMainForm.CloseFrm;
var
i : integer;
begin
try
for i := 0 to Screen.FormCount - 1 do
begin
if Screen.Forms[i].FormStyle = fsMDIChild then
begin
CloseWindow(Screen.Forms[i].Handle);
Screen.Forms[i].Close;
end;
end;
except

end;
end;

然后每个窗体的close中写

action:=cafree;
和
yourform：=nil；