Перемещение курсора

[Painkiller_13]

Есть функция по перемещению курсора по координатам
Mouse.CursorPos:=TPoint(10,10);
Но координаты берутся со всего экрана. Можно как то сделать, чтоб координаты считались в самой форме или чтоб курсор можно было перемешать не по координатам, а на объект. Например, при нажатии на button1 курсор перемещался на button2.

[Аватар]

см. методы формы ClientToScreen и ScreenToClient

[mihali4]

сделать чтоб координаты считались в самой форме

А приплюсовать координаты левого верхнего угла формы ?

[Stilet]

Легко:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Button2 do
 Mouse.CursorPos:=ClientToScreen(Point(Width div 2,Height div 2));
end;

Идея понятна?

P.S. Кстати в винде по-моему можно настроить перепрыг мышки на кнопки окна, выставленные по умолчанке.

P.P.S. Меня кста такие выкрутасы программ бесят до жути.

[Marinesku]

pt.x:=300;
pt.y:=400;
SetCursorPos(pt.x, pt.y);

И тогда курсор переместится в положение с координатами 300 и 400 пикселей. Если же вам нужно поместить курсор мыши в точку с координатами, зависящими от положения вашей формы, т.е. нажать конкретную кнопку на форме, то это делается так:

pt.x:=Form1.left+150;
pt.y:=Form1.top+200;
SetCursorPos(pt.x, pt.y);

И от верхнего левого края формы отступаем 150 и 200 пикселей.

Кликнуть мышку можно так:

mouse_event(MOUSEEVENTF_LEFTDOWN,MO USEEVENTF_ABSOLUTE,MOUSEEVENTF_ABSO LUTE,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,MOUS EEVENTF_ABSOLUTE,MOUSEEVENTF_ABSOLU TE,0,0);

http://www.delphi-vsem.ru/012.html

[Pamparam]

Если уж подняли тему... а как узнать размер бордеров формы? т.к. 150х200 самой формы не будет равно 150х200 от левого верхнего края окна