Arsip: Cara Form di klik X tidak tertutup/keluar

 
user image
more 13 years ago

onsir

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
user image
more 13 years ago

reminder2k1

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;
user image
more 13 years ago

onsir

ya berhasil, terima kasih
user image
more 13 years ago

luckynvic

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;
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com