Как узнать координаты мыши в delphi?
Как узнать координаты мыши в delphi?
1 ответ
от
Programmer ,
год назад
@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;
|
15