Как узнать координаты мыши в delphi?

Пользователь

от montana_hand , в категории: Другие , 3 месяца назад

Как узнать координаты мыши в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

P

Пользователь

от Programmer , 3 месяца назад

@montana_hand Добрый день!

Узнать координаты мышки можно следующим образом

procedure Form1.Button1Click(Sender: TObject);

1
2
3
4
5
6
7
var
	APoint: TPoint;

begin
	GetCursorPos(APoint);
	ShowMessage( '(' + IntToStr(APoint.X) + ' ,' + IntToStr( APoint.Y ) + ')' );
end;