Delphi Membuat Form Roll UP Down

Delphi Membuat Form Roll UP Down

Yuk mari kita buat form unik yang lain lagi,seperti yang sudah kalian ketahui roll up / down form :D Sebenernya dapet inspirasi dari tool nya um YNH88 , dan tak sesempurna seperti punya e dia. X_X Tapi it's oke lah dari pada gg tau caranya =))

Yuk,simak langkah-langkah mudahnya (y)

buka delphi

buat aplikasi baru

pada Type >> private ketikkan script seperti di bawah ini

fOldClientHeight: Integer;
 procedure WMNCRButtonDown(var Msg: TWMNCRButtonDown) ; message WM_NCRBUTTONDOWN;

gambar.1

selanjutnya tinggal implementasikan dan isi script di bawah ini

procedure TForm1.WMNCRButtonDown(var Msg: TWMNCRButtonDown) ;
 var
 h : integer;
begin if (Msg.HitTest = HTCAPTION) then
 begin
 if (ClientHeight = 0) then
 begin
 for h := 0 to fOldClientHeight do ClientHeight := h; Application.ProcessMessages;
 end
 else
 begin
 fOldClientHeight := ClientHeight;
 for h := fOldClientHeight downto 0 do ClientHeight := h;
 Application.ProcessMessages;
 end;
 end;
end;

gambar.2

Untuk Videonya Silahkan di simak video berikut ini ya =))

Selesai Silahkan dikembangkan sendiri =-c 

Jika ada masalah silahkan di bahas di kolong komentar :D

Terimakasih sudah membaca: Delphi Membuat Form Roll UP Down