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...