[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?