Problema con el GetasyncKeyState

[Milworm99]

Hola gente de la comunidad delphi, tengo un problema con este código

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (GetasyncKeyState($70)<0) then  // Tecla F1 //
begin
Label1.Caption:= 'Activado';
end
else
begin
Label1.Caption:= 'Desactivado';
end
end;
end.

Lo que quiero es que al presionar por primera ves la tecla F1, me salga en el label 'Activado', luego al presionar la tecla F1 por segunda ves me salga el mensaje en el mismo label 'Desactivado', y asi sucesivamente al presionar dicha tecla.

Yo e estado haciéndolo así pero no funciona

Espero que me ayuden, gracias por adelantado

[Casimiro Noteví]

No creo que sea necesario un timer, supongo que podrás hacerlo en la pulsación de la propia tecla.

[Milworm99]

Empezado por Casimiro Notevi

No creo que sea necesario un timer, supongo que podrás hacerlo en la pulsación de la propia tecla.

Como lo puedo hacer ?

[orodriguezca]

Empezado por Milworm99

Como lo puedo hacer ?

Creo que la forma más sencilla es mediante un TAction:

- Colocas un componente de tipo TActionList en el formulario.
- Al componente ActionList le adicionas una acción (Action1, por ejemplo).
- A esa acción le asignas como "ShortCut" la tecla F1 (propiedad ShortCut de la acción).
- En el evento Execute de la acción escribes un código similar a esto:

Código Delphi [-]
procedure TForm1.Action1Execute(Sender: TObject);
begin
  if Label1.Caption = 'Activado' then
     Label1.Caption := 'Desactivado'
  else
     Label1.Caption := 'Activado';
end;