application.Terminate不能用在这里啊.
这样试一试:
procedure Tpassword_form.FormCloseQuery(Sender: TObject;var CanClose: Boolean);
begin
if messagedlg('你要退出系统吗?',mtinformation,[mbyes,mbno],0)=mrno then
canclose:=false; ~~~~~
end;
这样试一试:
procedure Tpassword_form.FormCloseQuery(Sender: TObject;var CanClose: Boolean);
begin
if messagedlg('你要退出系统吗?',mtinformation,[mbyes,mbno],0)=mrno then
canclose:=false; ~~~~~
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货