Cita:
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;