请教，如何写一个响应关闭事件的对话框！（UP有分）

Question

请教，如何写一个响应关闭事件的对话框，选择“是”就退出，选择“否”就返回软件中！（UP有分）

Answer 1

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if messagedlg('确定要退出吗？',mtConfirmation,[mbyes,mbno],0) = mrno then
    abort;
end;

Answer 2

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('确定要退出吗？','警告',MB_YesNo+MB_IconWarning) = IdYes then
   CanClose:=True
  else
   CanClose:=false;
    
end;

Answer 3

------------------------------------
type 
  TCloseAction = (caNone, caHide, caFree, caMinimize);  TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;property OnClose: TCloseEvent;
--------------------------------------------------------------------
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if messagedlg('确定要退出吗？',mtConfirmation,[mbyes,mbno],0) = mrno then
       action:=caNone;end;

Answer 4

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if messagedlg('确定要退出吗？',mtConfirmation,[mbyes,mbno],0) = mrno then
       action:=caNone;end;

Answer 5

同意楼上procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MESSAGEBOX('确定要退出吗？','提示',MB_YESNO OR MB_ICONINFORMATION) = IDYES then
    CANCLOSE:=FALSE;
end;

Answer 6

if application.messagebox('确定退出系统吗？','提示',mb_yesno)=idno  then
  abort;

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
begin
  if messageDlg('您要继续执行吗？',mtConfirmation,[mbYES,mbNO],0)=mrYES then
    close;
end;
有问题请发信息到我的E-mail:[email protected]

Answer 8

楼上的一窍不通
大家怎么这么会抢生意，abort就可以了吧，何必那么麻烦。呵呵

Answer 9

onclose和onCloseQuery都可以用的!
你自己喜欢罗!

Answer 10

procedure TForm1.FormClose(Sender: TObject;var Action:TCloseAction);
begin
   if messagedlg('确定要退出吗？',mtConfirmation,[mbyes,mbno],0)
=mryes  then
       form1.close;
end;

Answer 11

上面的
 xuchunqiang(小菜) 
dancedog(猪熔鸡) 
： 99guo(小兵) 
的方法都不错。可以实现！！！

Answer 12

来晚了，楼上的说的已经很详细了！楼主好好看看：messagebox()的使用说明，很有帮助！

Answer 13

procedure TForm1.fcOutlookBar1OutlookList7Items3Click(
  OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
begin
   if messagedlg('真的要退出吗？',
   mtConfirmation, [mbyes,mbno],1) =mryes then
   begin
      form1.Close;
end;
 end;
这是我的1个按钮的单击事件挺好用的，供你参考！