Question

delphi 中action怎么用

怎么我的delphi里不能用action
比如一下语句总不能通过编译：

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messageDlg('是否关闭窗口?',mtConfirmation,[mbYes,mbNo],0)=mryes then
Action :=caFree
else
Action :=caNone;
end;

Answer 1

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messageDlg('是否关闭窗口?',mtConfirmation,[mbYes,mbNo],0)=mryes then
Action :=caFree;
else
Action :=caNone
end;
试试看(注意后面的分号)

Answer 2

应该用messagebox

Answer 3

if MessageBox(0,'是否要退出本系统？','提示信息',MB_YESNO+MB_ICONQUESTION)=IDYES then
Application.Terminate;
else
Action := caNone;