Point in the form to move the form

xiaoxiao2021-03-06  59

Procedure TFORM1.FORMMMMMOMSEDOWN (Sender: Tobject; Button: TMOUSEBUTTON;

Shift: TshiftState; x, y: integer;

Begin

ReleaseCapture; // Release the original

SendMessage (Self.handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); // 点 中 点 中 中 效

END;

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

New Post(0)