MENGGESER FORM TIDAK PADA TITLE BAR

Pada umumnya aplikasi yang kita jalankan hanya dapat dirubah posisinya dengan menggeser Title Bar ke posisi yang kita inginkan. Kali ini saya akan memberikan cara agar aplikasi yang kita buat dapat digeser ke posisi yang kita inginkan walaupun tidak pada Title Bar. Dengan menambah Procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest); dan dengan perintah tambahan tentunya kita dapat menggeser posisi Form tidak padaTitle Bar.

Listing Program :

...
type
TForm1 = class(TForm)
Label1: TLabel;
private
{ Private declarations }
procedure WMNCHitTest(var msg : TWMNCHitTest); message
WM_NCHitTest;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest);
begin
inherited;
if (msg.Result = htClient) then
msg.Result := htCaption;
end;

DOWNLOAD SOURCE