请问如何在子窗体不关闭时,主程序不能关闭.

[yanbl]

如何实现打开子窗体时,把MDI主窗体的关闭按钮屏蔽,或是其他方法不能关闭主程序.谢谢.

[aehousmantao]

子窗体打开方式用独占方式，主窗体就不会被关掉了

form.showmodal;

[gwolf]

//在closeQuery事件里写
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MainForm.MDIChildCount<>0 then
CanClose:=False;
end;