Ver Mensaje Individual
  #4  
Antiguo 15-11-2017
orodriguezca orodriguezca is offline
Miembro
 
Registrado: ene 2009
Posts: 221
Reputación: 16
orodriguezca Va por buen camino
Cita:
Empezado por Milworm99 Ver Mensaje
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;
Responder Con Cita