Como mudar simplismente a posição do Mouse em tempo de exec?

Delphi

23/06/2008

Ola!

Tenho a seguinte dúvida:

Preciso a pressionar uma tecla <F4>, para mudar a posição do ponteiro do mouse para as coordenadas (50,100), baseado nas config. do form.
Como posso fazer isto ?

A quem puder responder, desde jã meus agradecimentos.

ANT.CARLOS/SP


Ant.carlos/sp

Ant.carlos/sp

Curtidas 0

Respostas

Du_nirvana

Du_nirvana

23/06/2008

Olá, no procedimento vinculado a sua tecla de execução codifique o seguinte:

var
  vl_p: TPoint;

begin
  vl_p.X := 50;
  vl_p.Y := 100;
  vl_p   := ClientToScreen(vl_p);
  SetCursorPos(vl_p.X, vl_p.Y);
end;



GOSTEI 0
POSTAR