Procedure Tleadform.ImgtitleMouseMove (Sender: Tobject; Shift: TshiftState; x, y: integer); begin {================= Drag Form ======= ==============================}
ReleaseCapture; SystemParametersInfo (SPI_SETDRAGFULLWINDOWS, 1, nil, SPIF_UPDATEINIFILE); Perform (WM_SysCommand, $ F012,0); SystemParametersInfo (SPI_SETDRAGFULLWINDOWS, 0, nil, SPIF_UPDATEINIFILE);
{================================================================================================================================================================================================================ ===============} end;