关闭窗口 确认

Question

我在在在关闭窗口是用MESSAGEDLG函数弹出一个确认的对话框 ，点确认时关闭 ，点取消时不关闭怎么做

Answer 1

procedure TMINA.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    if messagebox(0,'确定要退出吗？','询问',MB_YESNO + MB_ICONQUESTION) = IDYES then
    CanClose := True
   else
    CanClose := False;
end;

Answer 2

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := Application.MessageBox(PChar('OK?'), PChar('OK?'), 49)=mrOK;
end;

Answer 3

在你的窗体的onCloseQuery事件中写入:
if messagebox(0,'确定要退出吗？','询问',MB_YESNO + MB_ICONQUESTION) = IDYES then
    CanClose := True
   else
    CanClose := False;