Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭,所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化,而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码,示例:
procedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
Delphi为一个Form的关闭行为指定了四种方式,分别是:
caNone 禁止Form被关闭
caHide Form不被关闭,但是被隐藏。被隐藏的Form仍然可以被程序访问。
caFree Form被关闭,并且释放其占用的资源。
caMinimize Form被最小化而不是被关闭,这是MDI子窗口的默认关闭行为。
==================================================
在MDIForm调用MDIChild窗体时要这样用
引用
if not Assigned(Form2) then begin
Form2:=TForm2.Create(Self);
Form2.Show;
end else
Form2.BringToFront;
另外在MDIChild的OnClose, OnDestroy中要以下代码 Form2为MIDChild窗体的名称
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
Form2:=nil;
end;
=================================================
如何获得当前打开的子窗口的数量?
Application.MainForm.MDIChildCount
==================================================
怎么关闭所有打开MDI子窗体?
除了在主窗体写入
procedure TFrmMain.N15Click(Sender: TObject);
var I:integer;
begin
if Application.MessageBox('确定要关闭所有窗口吗?','System',mb_iconinformation+mb_yesno)=id_yes then
begin
for I:=MdiChildCount-1 downto 0 do
MdiChildren[I].Close;
end;
end;
还要在各个子窗口写入
procedure TFrmchildn.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
Frmchildn:=nil;
end;
procedur TFrmchildn .FormDestroy(Sender: TObject);
begin
TFrmchildn:=nil;
end;
=================================================
根据以上的测试,有效代码:
主窗体:
引用
procedure TForm1.a2Click(Sender: TObject);
begin
if Assigned(Form2) then
begin
Form2.Close;
end;
end;
procedure TForm1.a3Click(Sender: TObject);
begin
if not Assigned(Form2) then //判断子窗体是否已打开
begin
Form2:=TForm2.Create(Self);
Form2.Show;
end
else Form2.BringToFront;
end;
子窗体:
引用
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
Form2:=nil;
end;
相关文章
- MDI程序.主框架和子窗口都是FormView来的。子窗口固定大小。如何给主框架添加滚动条
- 如何退出系统时,把所有已打开的子窗口关闭
- delphi 中如何判断子窗口是否已打开
- Mac开发——设置关闭窗口之后点击Dock中的图标可以再次打开窗口
- 同一mdi子窗体没关闭,多次打开,每次窗体的名称不同
- JS 在open打开的子窗口页面中调用父窗口页面的JS方法
- 一张图搞定OAuth2.0 在Office应用中打开WPF窗体并且让子窗体显示在Office应用上 彻底关闭Excle进程的几个方法 (七)Net Core项目使用Controller之二
- DELPHI中MDI子窗口的关闭 和打开
- QT5中全屏显示子窗口和取消全屏的方法
- C语言编程中对目录进行基本的打开关闭和读取操作详解