程序关闭问题

Question

写在closequery...中就ok啦！！
别忘了加个canclose:=false;

Answer 1

在onCloseQuery中写入
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if Application.MessageBox('确定退出该系统吗?','确认',MB_OKCANCEL+MB_ICONQUESTION)=idok then
   CanClose:=true;
 else
   CanClose:=false;    
end;

Answer 2

在MainForm的create中加如CanClose := False;
在MainForm的onCloseQuery中加入：
if Application.MessageBox('确定退出该系统吗?','确认',MB_OKCANCEL+MB_ICONQUESTION)=idok then
begin  
  CanClose := True;
  Application.Terminate;
end;