Código Delphi [-] procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest); begin inherited; if (Msg.Result = htClient) and (GetAsyncKeyState(VK_LBUTTON) <> 0) then Msg.Result := htCaption; end;
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest); begin inherited; if (Msg.Result = htClient) and (GetAsyncKeyState(VK_LBUTTON) <> 0) then Msg.Result := htCaption; end;