Title: Drag a captionless window
Question: how can i to drag a window without a caption by clicking any where in the form ?
Answer:
Add the following message in your form header:
procedure WMNCHitTest( var Msg : TWMNCHitTest );message wm_NCHitTest;
then add the following procedure:
procedure TForm1.WMNCHitTest( var Msg : TWMNCHitTest );
begin
if GetAsyncKeyState(VK_LButton) Msg.Result := HTCaption
else
Msg.Result := HTCLient;
end;