Efek Sensitive Pada Tombol Minimize Dan Close Form

27 05 2011

Supaya Anda tidak repot-repot lagi klik tombol Close dan Minimize dalam menutup atau mengecilkan form saat dijalankan, cobalah tip berikut ini. Hasil tip ini adalah saat aplikasi dijalankan, Anda cukup melewati (menyentuh) kedua tombol tersebut dengan cursor tanpa perlu klik untuk menutup atau mengecilkan form.

Untuk membuatnya, Anda hanya perlu menambahkan sedikit listing program pada kejadian OnActivate milik Form dan memanggil fungsi Message untuk menutup atau mengecilkan form secara otomatis, dan memasukkan fungsi tersebut ke dalam deklarasi private.

Berikut ini adalah listing programnya :

private
  procedure lik(var Msg:TWMNCHITTEST);message WM_NCHITTEST;
public
  {public declaration}

end;

var
  Form1: TForm1;
  tx: Boolean;

implementation

{$R *.dfm}
procedure lik(var Msg:TWMNCHITTEST);
begin
inherited;
if tx=True then
  begin
  if Msg.Result=Windows.HTMINBUTTON then
    Application.Minimize
  else
    if Msg.Result=Windows.HTClose then
      Close;
  end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
tx:=True;
end;

Aksi

Information

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




%d blogger menyukai ini: