Trik Agar Aplikasi Tidak Dapat Di Close lewat tombol close dan Alt+F4

Bagi ada yang ingin membuat aplikasi dengan Delphi, namun tidak menghendaki pengguna untuk meng-close program dengan meng-klik icon close( icon silang yang biasanya berada di pojok kiri atas ) atau tidak menginginkan pengguna meng-close program dengan menekan Alt+F4, maka ini dapat menjadi salah satu cara untuk mengatasinya :
1. Buat aplikasi seperti biasa dengan Delphi
2. Pada Form utama dar program kita, cari event OnCloseQuery ubah eventnya menjadi :

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose := false;
end;

3. Eeiit... tapi sebelum di run, kita buat dulu tombol untuk keluar dari program, yakni cukup dengan membuat Button1, lalu pada event OnClick – nya kita ubah menjadi :

procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
end;

4. Nah.. sekarang program kita siap untuk di run...
5. Semoga bermanfaat...

2 Response to "Trik Agar Aplikasi Tidak Dapat Di Close lewat tombol close dan Alt+F4"

Jogja Media Kreasi mengatakan...

klo dengan visual basic 6 gimana caranya???

TAI mengatakan...

tetep bisa diclose pak

Posting Komentar