[delphi] Mengapa selalu menggunakan Tittle Bar kalau ingin memindah form?
Written by admin on April 17, 2008
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.
Artikel menarik lainnya dari website ini :
Pertama Menggunakan Internet Gratisan Dari Smart
Selamat Menunaikan Ibadah Puasa.
Rachel Amanda: Jalan Ngengkang Bukan Berarti Nggak Perawan !!!
62 Tahun, Sylvester Stallone Masih Kuat Jadi ‘Rambo’
About Me
Bill Gates Tiba di Istana Presiden
Komunitas Dewa Linux ( Kodew )
Membaca Partisi Linux dari Windows
Where you will buy cell phone online ?
Download Mozilla FireFox, Tembus angka 1m
- gambar ketupat
- topologi bus
- tipe jaringan
- gambar ketupat lebaran
- conficker remover
- antivirus conficker
- www.xxx.com
- download film menculik miyabi
- film Best Friend
- indonesian subtitle
- need for speed undercover
- topologi jaringan bus
- nfs undercover
- resetter canon ip1700
- itunes 8






