Como Crear Programa Que Pulse Una Tecla Continuamente?

[darkcuevas]

Empezado por ecfisa

Hola darkcuevas.

Podrías utilizar un TTimer para simular la presión continua de una tecla y para tu segunda pregunta, aprovechar el evento OnKeyPress del form.

Ejemplo : ( en un TForm poné un TTimer y un TEdit o un TMemo para visualizar el resultado )



La repetición de pulsación de tecla se activa/desactiva con Ctrl+A.


Un saludo.

hola quetal bueno ya prove el codigo que pulsa la tecla


pero no entiendo como calocar el de acceso rapido me podrias explicas un poco mejor como colocarlo?? porfavor

no entiendo bn lo del evento dime como lo pondrias tu paso por paso si no es mucha molestia

(soy algo nuevo en este asunto)


haaa y que conponente es este FormKeyDown???

[Casimiro Noteví]

El form tiene el evento keydown, escribe el código en él.

[darkcuevas]

mira yo escrivo el codigo en el evento pero nada al conpilar y marcar ctrl+a no pasa nada

[Casimiro Noteví]

Bueno, en el ejemplo que ha puesto ecfisa es ctrl+A mayúscula.

[darkcuevas]

no nada

[Casimiro Noteví]

Empezado por darkcuevas

no nada

¿No nada,? ¡qué!, te recomiendo que leas nuestra guía de estilo, es que no somos adivinos

[darkcuevas]

disculpa que no aya segido respondiendo ayer es que me fui a dormir devido que tenia mucha fiebre


bueno continuo

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  Msg: TMsg;
begin
  if (ssCtrl in Shift) and (Key = Ord('A')) then  // Ctrl + A
  begin
    PeekMessage(Msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE); //Quitar Beep
    Timer1.Enabled:= not Timer1.Enabled;  // Activar/Desactivar TTimer
  end;
end;

yo introdusco el codigo en el evento pero al intentar encender el timer con Ctrl+A
no pasa nada no se enciende ni nada tanbien hise lo que medijiste y pusela "a" en minuscula
pero no paso nada me podrias explicar el codigo?