Disable ALT+F4 Delphi

Penanganan Event-Event yang ada didalam Program Aplikasi yang kita bangun sedari dini harus kita perhatikan untuk meminimalisir terjadinya Error yang dapat menjadi sebuah Bug Aplikasi Tersebut. Dalam Delphi Sendiri Event-Event yang umum terjadi telah disediakan didalam Objek Inspector. Semisal Event OnClick, OnCreate, OnClose dan semacamnya.

Salah Satu Event yang pasti terjadi saat aplikasi dijalankan adalah penekanan tombol keyboard. Untuk menangkap aksi ini kita bisa menggunakan Code ASCII masing-masing tombol di keyboard seperti contoh berikut yang dapat menangkap aksi penekanan tombol backspace

If Key=#8 then
begin
// aksi
end; 

Kali ini saya akan berbagi bagaimana menangkap Aksi penekanan tombol ALT+F4 yang berfungsi untuk menutup aplikasi atau Close. Cara yang saya gunakan adalah dengan membuat sebuah Procedure dan mengeksekusi aksinya didalam procedure tersebut. codingnya seperti dibawah ini

procedure TForm1.AppMessage(var Msg: TMSG; var HAndled: Boolean);
begin
Handled := False;
case Msg.Message of
WM_SYSKEYDOWN:
if Msg.wParam = VK_F4 then
begin
Handled := True;
ShowMessage('Ops, Sorry.. Alt + F4 di Non Aktifkan !');
end;
end;
end;

Lalu Pada Event On Create Form kita tambahkan baris perintah berikut

Application.OnMessage := AppMessage;

Contoh Source Code Lengkap Dapat Anda Unduh disini. Semoga Berhasil :)