Galera, preciso mover o mouse pra cima,baixo,direita ou esquerda pelas teclas do mouse.. e que outro botão funcione como click também
Teria como?
Eu consegui avançar um pouco com o auxílio do Vini deste fórum maravilhoso mesmo, sendo assim fiz este esboço que pouco funciona:int x=800;
int y=500;
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Form1->FormStyle = fsStayOnTop;
}
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if(StrToInt(Key)==8) x+=100;
if(StrToInt(Key)==4) y-=100;
if(StrToInt(Key)==6) y+=100;
if(StrToInt(Key)==2) x-=100;
SetCursorPos(x,y);
}
Seria um teste para subir o mouse, descer e ir para os lados... Mas não funciona direito!
Alguém pode me ajudar nisso, por favor?
Desde já Obrigado