Как определить координаты курсора мыши?
Как определить координаты курсора мыши?
GetCursorPos()
Автор Spawn
Взято с Vingrad.ru
Обрабатывай событие 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;
Автор Pegas
Взято с Vingrad.ru
mouse.CursorPos.x
mouse.CursorPos.y
Автор Vit
Взято с Vingrad.ru
Для этого можно воспользоваться API функцией GetCursorPos. Передав в эту функцию TPoint, мы получим текущие координаты курсора. Следующий код показывает, как получить значения координат курсора по нажатию кнопки.
procedure Form1.Button1Click(Sender: TObject);
var
foo: TPoint;
begin
GetCursorPos(foo)
ShowMessage( '(' + IntToStr(foo.X) + ' ,' + IntToStr( foo.Y ) + ')' );
end;
Взято с Исходников.ru
