中科新闻网内蒙牛肉干哪个品牌好:怎么在DELPHI中。怎么才能在退出是并能显示消息框，求代码
来源：百度文库 编辑：中科新闻网 时间：2024/05/10 12:38:45
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if(MessageDlg('确定要退出吗？',mtConfirmation,[mbYes,mbNo],0) = mrYes) then
CanClose := True
else
CanClose := False;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowMessage('');
end;
好像Action还可以让关不关闭