如何得到控件在屏幕上的坐标??

Question

如何得到控件在屏幕上的坐标??

Answer 1

var
  P: TPoint;
begin
  P := Point(Button1.Left, Button1.Left);
  P := ClientToScreen(P);
  ShowMessage(IntToStr(P.X) + ',' + IntToStr(P.Y));
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

Button1.ClientOrigin.X
Button1.ClientOrigin.Y