Ver Mensaje Individual
  #1  
Antiguo 29-12-2012
miguelnoda miguelnoda is offline
Registrado
NULL
 
Registrado: dic 2012
Posts: 5
Reputación: 0
miguelnoda Va por buen camino
Talking Hotkeys en Delphi

Hola, buenas a todos, mi nombre es Miguel. Mi problema es este:

He creado un Autoclick para un juego pero no tengo ni idea de como agregarle ''hotkeys'', osea, que se inicie con ''F2'' y se pare con ''F3'' por ejemplo.
He de decir que no se nada de programación, he hecho algunas cosas simples en Visual Basic pero siempre con la ayuda de guías en internet, si me pueden ayudar sería de gran utilidad.

El proyecto consta de un ''timer'', una caja de texto para poner los intervalos y dos ''buttons'', uno para parar y otro para iniciar, ahi es donde me gustaría agregarle unos ''hotkeys'' para poder iniciar y parar el Autoclick pulsando ''x'' tecla.

El code es este:

Código:
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
        Timer1.Interval :=STRToint (Edit1.Text);
        Timer1.Enabled := True ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Timer1.Enabled :=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0 );
   Mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.
Muchas gracias.
Responder Con Cita