Hotkeys en Delphi

[miguelnoda]

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:

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.

[oesqueda]

Hola, es simple.

1. Activa la propiedad KeyPreview en el Form
2. Programa el evento OnKeyUp

Te paso esta liga para que veas las teclas y sus valores http://delphi.about.com/od/objectpascalide/l/blvkc.htm.

Te dejo la tarea de determinar como usarlas, si se te atora, pues aqui esta el foro

[miguelnoda]

Hola, gracias por ayudarme amigo.

Aver, ya active la propiedad KeyPreview en el Form Pero no tengo ni idea de como programar el evento OnKeyUp, si me puedes poner un ejemplo con el code sería de gran utilidad.
Por cierto miré la página que pusiste y las ''hotkeys'' que usaré son estas: VK_F9 y VK_F10 y tampoco tengo idea de como poner eso en el code.
Siento mucho mi ignorancia con esto pero es que no tengo ni idea. De nuevo muchísimas gracias por la ayuda.

[ecfisa]

Hola Miguel.

Un ejemplo basado en el código de tu primer mensaje:

Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview    := True;  // el form recibe evento teclado antes que el control activo
  Timer1.Enabled:= False
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // codigo a ejecutar OnTimer
end;

procedure TForm1.btnIniciarClick(Sender: TObject);
begin
  Timer1.Interval:= StrToInt(EditIntervalo.Text);
  Timer1.Enabled := True
end;

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

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_F5: btnIniciar.Click; // F5: Iniciar
    VK_F6: btnParar.Click;   // F6: Parar  
  end;
end;
...

Saludos.

[miguelnoda]

Muchas gracias amigo pero cuando corrijo el código me salta error en FormCreate

procedure TForm1.FormCreate(Sender: TObject);

que se supone que debo cambiar?, he probado a poner el nombre de la aplicación pero nada

[ecfisa]

Empezado por miguelnoda

Muchas gracias amigo pero cuando corrijo el código me salta error en FormCreate

procedure TForm1.FormCreate(Sender: TObject);

que se supone que debo cambiar?, he probado a poner el nombre de la aplicación pero nada

Hola.

Te adjunto el código funcional del ejemplo para que lo revises con tranquilidad.

Saludos.

[miguelnoda]

Solucionado, muchas gracias y perdón por las molestias.

[ecfisa]

Empezado por miguelnoda

Solucionado, muchas gracias y perdón por las molestias.

No es ninguna molestia, intentar ayudar es la finalidad de Club Delphi.

Saludos.

[miguelnoda]

Vale ya tengo programado el ''Autoclick'' con sus ''hoykeys'', pero ahora el problema es que solo funcionan cuando tengo la ventana del ''Autoclick'' seleccionada. Ami me interesa que funcione con la ventana minimizada ya que se va a usar con otras aplicaciones. ¿ Hay alguna forma de que se pueda hacer esto?, Muchas gracias.

[ecfisa]

Hola Miguel.

Revisa este [hilo], en el mensaje #15 existe un enlace que podría interesarte.

Saludos.