怎么得到光标在控件上的相对位置？

Question

在某个控件上单击后，我想知道光标在控件上的相对位置。
我用GetCursorPos得到光标相对于屏幕的位置后，再减去窗体相对于屏幕的位置及控件相对于窗体的位置，似乎还应该减去窗体标题栏的高度及窗体边框的厚度，但不知道怎么得到窗体标题栏的高度及窗体边框的厚度。

Answer 1

GetCursorPos
ScreenToClient

Answer 2

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  p ,t: TPoint;
begin
GetCursorPos(p);
t.X := Button1.Left;
t.Y := Button1.Top ;
t :=ClientToScreen(t);
Caption := Format('%d;%d',[p.X-t.X,p.y-t.y]);//也可以用 ScreenToClient把屏幕座标转换称客户区座标后来对比
//
end;