Sterowanie myszka

Jak sterowac myszka za pomocA dowolnych klawiszy?

dajesz na forme Timer na mały interval
i w nim
var kursor: TPoint
begin
  getKeyState(VK_LEFT)>0 then kursor.x-1
  getKeyState(VK_RIGHT)>0 then kursor.x+1
  getKeyState(VK_UP)>0 then kursor.y+1
  getKeyState(VK_DOWN)>0 then kursor.y-1
  setcursorPos(kursor);
end;

eventualnie daj keypreview formy na true;

był taki temat raptem wczoraj, poszukaj

//Milka: po co timer do takiego czegoś ? to jest najgorsze rozwiązanie...

Coś to niedziała

Coś to niedziała

Poniewaz pan milka zapomnial o getcursorpos :) no i jeszcze o if'ach :D a takze ; :)

oto nowy kod

var kursor: TPoint
begin
  getcursorpos(kursor);
  if getasyncKeyState(VK_LEFT)<0 then kursor.x-1;
  if getasyncKeyState(VK_RIGHT)<0 then kursor.x+1;
  if getasyncKeyState(VK_UP)<0 then kursor.y+1;
  if getasyncKeyState(VK_DOWN)<0 then kursor.y-1;
  setcursorPos(kursor);
end;

ale chłopie, wywal timera w cholere, założ hooka na klawiature (jest o tym chyba artykuł na tej stronie)

[dopisane:]

Znowu nie dziła, sprawdźcie zanim dacie

ku$%$ płacisz tu komuś za pomoc ???? ktoś poświęcił swój czas zeby wyskrobać ci kodzik, to jeszcze masz pretensje

Znowu nie dziła, sprawdźcie zanim dacie

ale chłopie, wywal timera w cholere, założ hooka na klawiature (jest o tym chyba artykuł na tej stronie)

dobra, cicho. chcial sterowanie, to ma. a ze to ch***wa metoda to jesgo problem

Znowu nie dziła, sprawdźcie zanim dacie

PS poprawilem kod wyzej

getcursorpos() nie dałem b myślałem, że on chce mieć sterowanie tylko za pomocą klawiatury i wtedy np. w OnCreate() może dać SetCursorPos(100,100);
za te if'y to sory