Pesan Sebelum Keluar Aplikasi

Ini adalah Coding untuk pesan keluar, jadi sebelum keluar dari Aplikasi akan muncul pesan dulu Apakah Yakin akan keluar Aplikasi atau tidak.

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin?',
'informasi',mb_okcancel or mb_iconquestion)=mrok then
Application.Terminate;
end;
end. 

 Pasti Semua orang juga sudah tau x ya,gampang kan.

Posted by Antas Delphi on - Rating: 4.5

Title : Pesan Sebelum Keluar Aplikasi
Description : Ini adalah Coding untuk pesan keluar, jadi sebelum keluar dari Aplikasi akan muncul pesan dulu Apakah Yakin akan keluar Aplikasi atau tida...