Delphi 如何获取控件上的光标位置？

Question

我想知道 TCustomControl 上光标的位置。如何找到坐标？

Answer 1

GetCursorPos如果您无法处理鼠标事件，这会很有帮助:

function GetCursorPosForControl(AControl: TWinControl): TPoint;
var 
  P: TPoint; 
begin
  Windows.GetCursorPos(P);
  Windows.ScreenToClient(AControl.Handle, P );
  result := P;
end;