A
aizb
Unregistered / Unconfirmed
GUEST, unregistred user!
我想是你的子窗体的OnCloseQuery事件有问题,可能是把CanClose设成了False或者在OnClose事件中Action参数不是caFree,
如果这些事件中的代码中不能修改的话请把你的退出代码作如下修改:
if (messagebox(handle,'現在要登出嗎','登出',MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2)=idok)then
begin
for i:=mainform.MDIChildCount-1 downto 0 do
begin
// mainform.MDIChildren.close
//在某些Form中的OnCloseQuery事件中加入如何為新增或編輯時需要用戶確認存盤退出還是不存盤退去或都取消退出!
mainform.MDIChildren.Free
//直接Free就可以了,不要Close!
end;
if mainform.MDIChildCount=0 then mainform.FormShow(sender);//運行登出畫面
end;
如果这些事件中的代码中不能修改的话请把你的退出代码作如下修改:
if (messagebox(handle,'現在要登出嗎','登出',MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2)=idok)then
begin
for i:=mainform.MDIChildCount-1 downto 0 do
begin
// mainform.MDIChildren.close
//在某些Form中的OnCloseQuery事件中加入如何為新增或編輯時需要用戶確認存盤退出還是不存盤退去或都取消退出!
mainform.MDIChildren.Free
//直接Free就可以了,不要Close!
end;
if mainform.MDIChildCount=0 then mainform.FormShow(sender);//運行登出畫面
end;