Как определить координаты курсора мыши?

Материал из DRKB

Как определить координаты курсора мыши?[править | править код]

GetCursorPos()


Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01568



Обрабатывай событие OnMouseMove. Координаты курсора можно получить следующим путем:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if (X >= 40 or X <= 234) and (Y >= 60 or Y <= 258) then
    { здесь запуск твоей функции };
end;


Author: Pegas
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01569



  mouse.CursorPos.x
  mouse.CursorPos.y


Author: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01570


Для этого можно воспользоваться API функцией GetCursorPos. Передав в эту функцию TPoint, мы получим текущие координаты курсора. Следующий код показывает, как получить значения координат курсора по нажатию кнопки.


procedure Form1.Button1Click(Sender: TObject);
var
  foo: TPoint;
begin
  GetCursorPos(foo)
  ShowMessage( '(' + IntToStr(foo.X) + ' ,' + IntToStr( foo.Y ) + ')' );
end;


Source: Взято из http://forum.sources.ru
ID: 01571
ID: 01572