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

23/06/2008

2

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


Responder

Posts

23/06/2008

Du_nirvana

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;



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira