masaguz.com | shared knowledge

Mengapa selalu menggunakan Tittle Bar kalau ingin memindah form? NGGAK JUGA. kita bisa memanipulasi form didelphi, sehingga jika kita ingin memindah form, tidak harus menggeser Tittle Bar, dengan menggeser bagian tengah form kita juga bisa memindah form.

Langkah – langkahnya :

1. Buat aplikasi baru di delphi (File-> New-> Applications)

2. Kemudian klik dua kali pada form, setelah itu akan muncul halaman untuk mengetikan kode, geser keatas sampai kita menemukan tulisan deklarasi “private” seperti dibawah ini :

———————————————————

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

———————————————————

nah, masukkan kode dibawah ini di bawah kata2 private, yang akhirnya nanti jadi seperti ini :

——————————————————-

type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMNCHitTest( var Msg : TWMNCHitTest );
message wm_NCHitTest; public
{ Public declarations }
end;
————————————————————-

yang dikasih tanda tebal adalah skrip yang baru dimasukkan.

4. kemudian geser kebawah. nanti ada kata2 implementation {$R *.dfm}, kemudian masukkan script2 ini dibawahnya :

procedure TForm1.
WMNCHitTest( var Msg : TWMNCHitTest );
begin
inherited;
{ fool windows by telling it
that it's in our caption area
although it's in our client area }
if( htClient = Msg.Result )then
Msg.Result := htCaption;
end;

5. jalankan program (F9), kemudian klik dan geser pada area tengah form, tidak harus pake tittle bar untuk menggeser form.
kesulitan????
DOWNLOAD Saja Programnya disini, tinggal di extract dan dibuka melalui delphi.