Moving a borderless from.

[vacunita]

I'm trying to drag a form that has the borderstyle property set to none. how can i accomplish this? any ideas would be apreciated.

thanx

 

[KLP]

You could intercept the WM_NCHITTEST message.
To do so, put this into your form's declaration.

procedure WMNCHitTest(var M: TWMNCHitTest); message WM_NCHitTest;

and this in the implementation part...

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin inherited;
{if the mouse clicked on the form}
if (M.Result = htClient) then
M.Result := htCaption;
{make windows think that mouse has been
clicked on caption}
end;