[Delphi] 스크린 기준 컴포넌트 객체의 좌표 구하기

* TPoint 를 이용.

procedure TfrmTest.TestButtonClick(Sender: TObject);

var

  tempPoint : TPoint;

begin

  tempPoint := TSpeedButton(Sender).ClientToScreen(Point(0, 0));

  ShowMessage('[X : ' + IntToStr(tempPoint.X) + '] [Y : ' + IntToStr(tempPoint.Y) + ']');

end;