在先等待 50 分--如果让程序在退出时,询问是否退出!是就退出 不是就不退出 呵呵

Question

在先等待 50 分--如果让程序在退出时,询问是否退出!是就退出  不是就不退出 呵呵

Answer 1

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := (Application.MessageBox('是否要退出？', '提示', MB_ICONQUESTION + MB_YESNO) = IDYES);
end;

Answer 2

主窗口的OnCloseQuery事件写以上代码

Answer 3

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := (Application.MessageBox('是否要退出？', '提示', MB_ICONQUESTION + MB_YESNO) = IDYES);
end;

Answer 4

退出按钮代码:
var
res:boolean;
begin
  res:=application.messagebox('是否退出','提示'mb_yesno);
  if res=IDYES  then
    begin
      ///////////////////
      //自己需要做得清除工作
      ///////////////////
     application.Terminate;
    end
  else
    showmessage('继续运行');
end;
/////////如果我没理解错,上面代码就可以了

Answer 5

楼上的似乎...
如果我点的是窗口右上方的X,那么阁下应该如何应对?
CloseQuery事件完全可以满足楼主的需要了...

Answer 6

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('是否要退出？', '提示', MB_ICONQUESTION + MB_YESNO) <> IDYES then
  abort;
end;