Bagaimana cara nya bila suatu form di klik tanda X (close) tampil pesan. lalu bila di klik OK form tsb tertutup, bila di klik Cancel tidak tertutup saya ada kode spt ini procedure TfMainMenu.FormClose(Sender: TObject; var Action: TCloseAction); begin If Application.MessageBox('Anda yakin ingin keluar dari program ?', 'lat1', MB_OKCANCEL ) = IDOK then begin Application.Terminate; end; end; Atas bantuan rekan-rekan saya ucapkan terima kasih

Sebenarnya script di atas dah bener... Cuma perlu ditambahkan 1 baris aja lagi... Met coba ya??? :D procedure TfMainMenu.FormClose(Sender: TObject; var Action: TCloseAction); begin If Application.MessageBox('Anda yakin ingin keluar dari program ?', 'lat1', MB_OKCANCEL ) = IDOK then begin Application.Terminate; end else begin Application.Run end; end;

ya berhasil, terima kasih

Dalam Form sudah ada event onCloseQuery dan kita dapat mamanfaatkannya contoh :

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    if MessageDlg('Yakin Keluar',mtConfirmation,[mbOk]+[mbCancel],0)=mrOk then
        CanClose:=true
   else 
        CanClose:=false;
end;

atau lebih singkatnya begini saja, dari pada repot :roll:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    CanClose:= MessageDlg('Yakin Keluar',mtConfirmation,[mbOk]+[mbCancel],0)=mrOk;
end;