Определить координаты мыши на экране
Если вам нужно узнать, где сейчас находится мышь, воспользуйтесь GetCursorPos. (На форму необходимо кинуть компонент Timer находится на вкладке System) procedure TForm1.Timer1Timer(Sender: TObject);var
p: TPoint;
begin
GetCursorPos(p);
Label1.Caption := 'x=' + IntToStr(p.x);
Label2.Caption := 'y=' + IntToStr(p.y);
end;
