Как определить координаты курсора мыши? |
Previous Top Next |
GetCursorPos()
Автор Spawn
©Drkb::01568
Взято с Vingrad.ru http://forum.vingrad.ru
Обрабатывай событие OnMouseMove. Координаты курсора можно получить следующим путем:
Code: |
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin {©Drkb v.3(2007): www.drkb.ru}
if (X >= 40 or X <= 234) and (Y >= 60 or Y <=258) then {здесь запуск твоей функции}; end; |
©Drkb::01569
Автор: Pegas
Взято с Vingrad.ru http://forum.vingrad.ru
Code: |
{©Drkb v.3(2007): www.drkb.ru} mouse.CursorPos.x mouse.CursorPos.y |
©Drkb::01570
Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Взято с Vingrad.ru http://forum.vingrad.ru
Для этого можно воспользоваться API функцией GetCursorPos. Передав в эту функцию TPoint, мы получим текущие координаты курсора. Следующий код показывает, как получить значения координат курсора по нажатию кнопки.
Code: |
procedure Form1.Button1Click(Sender: TObject); var foo: TPoint; begin GetCursorPos(foo) ShowMessage( '(' + IntToStr(foo.X) + ' ,' + IntToStr( foo.Y ) + ')' ); end; |
©Drkb::01571
Взято из http://forum.sources.ru
Для этого можно воспользоваться API функцией GetCursorPos. Передав в эту функцию TPoint, мы получим текущие координаты курсора. Следующий код показывает, как получить значения координат курсора по нажатию кнопки.
Code: |
procedure Form1.Button1Click(Sender: TObject); var foo: TPoint; begin GetCursorPos(foo); ShowMessage('(' + IntToStr(foo.X) + ' ,' + IntToStr(foo.Y) + ')'); end; |
©Drkb::01572
DelphiWorld 6.0