【结贴】如何获取单击字段编辑属性的OnButtonClick的坐标

didi0225

如何获取单击字段编辑属性的OnButtonClick的鼠标在窗体上的坐标？

因为要结合TCheckListBox ,动态设置TCheckListBox的位置

didi0225

var
pt: TPoint;
begin
GetCursorPos(pt);         {这是获取的相对于屏幕的坐标}
pt := ScreenToClient(pt); {转换成本地坐标}
Dialogs.ShowMessage(SysUtils.Format('API 函数 GetCursorPos: x=%d; y=%d', [pt.X,pt.Y]));
end;

结