Problema con el GetasyncKeyState

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