델파이 마우쓰 포인터 좌표 구하기

마우쓰 포인터가 폼 밖으로 나간 때 디스플래이 차원의 위치를 구해야 할 때가 있다. 예를 들어 특정 위치로 포인터를 움직이게 하고 거기를 클릭하게 하려고 하는 작업을 할 때다. 어딘가로 포인터를 보내려면 그 전에 가야 할 곳의 좌표를 알아야겠지.

불법 트래이딩 애플리캐이션을 쓸 때 매수나 매도를 더 편하게 하려고 해당 버튼들을 자동으로 클릭하게 할 때 유용하다. 일반적인 증권회사 애플리캐이션을 이용한다면 굳이 이렇게 저차원적인 방법을 쓸 게 아니라 api를 이용하면 된다.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  point: TPoint;
begin
  GetCursorPos(point);

  Caption := IntToStr(point.X) + ' ' + IntToStr(point.Y);
end;