问个小问题,在点击右上角的关闭按钮时,怎么让程序弹出提示对话框,以便选把是否真的退出??谢谢了

Question

在点击右上角的关闭按钮时,一点就直接关闭了,怎么让程序弹出提示对话框,以便选择是否真的退出??

Answer 1

procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if Application.MessageBox('请确认是否退出本系统', '提示信息', mb_iconinformation + mb_YesNo) = id_no then
    Abort;
end;

Answer 2

在窗体中的OnClose事件中写代码, 
if MessageDlg('您确定要退出吗?', mtconfirmation, [mbyes, mbno], 0) = mryes then
    Action :=caFree
else Action :=caNone;

Answer 3

我在OnCloseQuery里写代码了
 if 
   Application.MessageBox('你真的想退出本系统吗?','提示',MB_OKCANCEL)=IDOK then
   CanClose:=true
 else
   CanClose:=False;这样就OK了,呵呵,多谢几位的指点:)