Disable Event Handler

Jika kita ingin melakukan disable event handler saat pertama kali dipanggil, misalnya kita ingin melakukan disable semua aktifitas penekanan tombol mouse pada suatu komponen setelah penekanan tombol mouse pertama kali dilakukan pada komponen. Contoh kode adalah sebagai berikut :

procedure ComponentOnClick;
begin
  Button1.OnClick := nil;
end;

Dalam kasus button.onclick, kita memperoleh efek yang sama seperti men-disable tombolnya sendiri dan pada waktu yang sama, kita memberikan feedback visual sehingga trik ini hanya dapat dipertimbangkan untuk event dan komponen lainnya.

#semoga bermanfaat