Sunday 8 April 2012

Delphi7 : Tombol Keluar dengan Messagebox

Ketikkan listing program di bawah ini dengan cara klik dua kali form aplikasi kamu:



procedure TForm1.keluarClick(Sender: TObject);
begin
  if (application.messagebox(‘Apakah Anda ingin Keluar Aplikasi’,'Peringatan’,mb_yesno)=idyes)
  then
   close;
end;
Share:

15 comments:

  1. tampilan jadinya sepertiapa mbak? wah saya perlu belajar banyak nich tentang coding.

    ReplyDelete
  2. bener juga ya,., makasi fiii sudah diingatkan,.,

    ReplyDelete
  3. Berikut ini adalah kode program untuk membuat messageBox pada tombol keluar:

    if messagedlg(‘Anda Ingin Keluar Aplikasi ini?’,mtconfirmation,[mbYes,mbNo],0)=mrYes then
    begin
    application.Terminate;
    end;
    About these ads
    Memuat...

    ReplyDelete
  4. Makasih gan, ijin copas skripnya..

    ReplyDelete
  5. mantap mbak, sudah saya praktekan, ga error hehe

    ReplyDelete
  6. Sist klu buat login gmn ya sist? pake adodb sql?

    ReplyDelete
  7. Sist klu bikin report gmn ya? ntr kluarnya ke excel...

    ReplyDelete
  8. Makasih kak infonya,, lagi bljar delphi juga ni...

    ReplyDelete
  9. niy saya lagi liad2 olshop kamu http://juragansandal.com/ ..

    ReplyDelete
  10. Sudah saya Run kenapa error ya?

    kalau cuma pake Close; tanpa dialog bisa di run?

    ReplyDelete