Menampilkan Konfirmasi Saat Form di Close

Trik menampilkan pesan MessageBox pada saat form di close. Dengan cara ini saat kita memberi perintah close form, maka pesan tersebut akan ditampilkan.

Edit event pada FormCloseQuery:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageBox(Handle, 'Keluar dari aplikasi ? ','Konfirmasi',
                MB_ICONQUESTION + MB_YESNO) = idYes then
    CanClose:= True
  else
    CanClose:= False;
end;