@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; |