procedure Tfrm_Logon.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin 如果将 CanClose:=FALSE;窗体将不能关闭 end;procedure Tfrm_Logon.FormClose(Sender: TObject; var Action: TCloseAction); begin 这里是窗体肯定要关闭了. end;当你点关闭时 先执行.FormCloseQuery ,后执行FormClose;
var CanClose: Boolean);
begin
如果将 CanClose:=FALSE;窗体将不能关闭
end;procedure Tfrm_Logon.FormClose(Sender: TObject; var Action: TCloseAction);
begin
这里是窗体肯定要关闭了.
end;当你点关闭时 先执行.FormCloseQuery ,后执行FormClose;