TForm1.FormCloseQuery是自身有的属性。
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
try
if Application.MessageBox('确定退出本软件吗?','询问',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
begin
CanClose:=True;
end
else
CanClose:=False;
except
Exit;
end;
end;