Sunday, 8 April 2012

Delphi7 : Tombol Keluar dengan Messagebox

Written by   on   with 15 comments
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:

Related Posts:

15 comments:

  1. Arfi Asta15 May 2012 at 23:12

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

    ReplyDelete
  2. diliecute17 May 2013 at 14:12

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

    ReplyDelete
  3. Anonymous22 February 2014 at 10:17

    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. teknologi 201611 January 2016 at 05:46

    Makasih gan, ijin copas skripnya..

    ReplyDelete
  5. sigit16 January 2016 at 22:43

    mantap mbak, sudah saya praktekan, ga error hehe

    ReplyDelete
  6. diliecute18 January 2016 at 13:49

    senang bisa membantu..

    ReplyDelete
  7. teknologi terbaru 201622 January 2016 at 16:16

    Sist klu buat login gmn ya sist? pake adodb sql?

    ReplyDelete
  8. kaya manfaat3 March 2016 at 14:32

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

    ReplyDelete
  9. rumah minimals26 April 2016 at 14:57

    thanks ya infonya...

    ReplyDelete
  10. grosir sandal murah17 November 2016 at 14:06

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

    ReplyDelete
  11. wedges murah 20174 January 2017 at 11:24

    Nitip sandal, belajar delphi..

    ReplyDelete
  12. diliecute5 January 2017 at 07:00

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

    ReplyDelete
  13. Kabar Seluler2 March 2017 at 07:37

    Sudah saya Run kenapa error ya?

    kalau cuma pake Close; tanpa dialog bisa di run?

    ReplyDelete