我想在formclose里使用messagebox的cancel该如何实现？

Question

procedure TfrmTtsServer.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if   messagebox =idcancel then
   canclose=false
  else canclose=true
  
end;

Answer 1

写段程序给你procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var
        Result : Integer ;
begin
        Result := Application.MessageBox( '您没有保存文件，保存后退出？' , '提示' , MB_YESNOCANCEL + MB_ICONINFORMATION ) ;
        if Result = IDCANCEL then
                Action := caNone
        else Result = IDYES then begin
                SaveFile() ; //函数调用假设有
                Action := caFree ;
        end
        else
                Action := caFree ;
end;

Answer 2

写错了一点
应该是
else if 
呵呵

Answer 3

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if  application.MessageBox('确定要关闭吗？','关闭',mb_iconquestion+mb_okcancel)=mrcancel then
     action:=canone;
end;

Answer 4

同意newyj(方恨少；寻找第二把刷子的人)