點關閉按鈕,提示是否確認退出
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;