Drag the form

zhaozj2021-02-16  63

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;

转载请注明原文地址:https://www.9cbs.com/read-17565.html

New Post(0)