MENDISABLEKAN FUNGSI MENU CLOSE

MENDISABLE FUNGSI MENU CLOSE

Hallo smua....disini kita akan mendisablekan menu close yang biasanya tinggal bersama 3 tmnnya di pojok kanan atas program anda....trik ini bisa anda gunakan untuk sedikit ‘memaksa’ para pengguna program anda dengan hanya menutup program dengan menu yang telah anda sediakan......

1. bikin proyek baru,kemudian pada event formcreate anda dapat menambahkan code dibawah ini :

procedure tform1.formcreate(sender:tobject);

var

  closehilang : HMENU;

begin

  closehilang := GetSystemMenu(form1.Handle,false);

if (closehilang <> 0) then DeleteMenu(closehilang,    SC_CLOSE,MF_BYCOMMAND);

end;

end.

Kemudian pencet tombol f9/run....dan hasilnya

Semoga bermanfaat bagi anda........terima kash telah mengunjungi blog ini...

Salam klikq

Posted in: tutorial delphi