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

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

 

http://delphiworld.narod.ru/

DelphiWorld 6.0