Ver Mensaje Individual
  #2  
Antiguo 17-12-2009
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Puedes buscar el TAction por su nombre y ejecutarlo

Puedes buscar el TAction por su nombre y ejecutarlo:
Código Delphi [-]
procedure TFormPrincipal.Ejecutar_Action(const Nombre: String);
var i:Integer;
begin
// Hay que buscar el componente TAction que tiene el mismo caption que el item, y ejecutarlo.
  for i:= 0 to FormPrincipal.ComponentCount -1 do
  begin
    if (FormPrincipal.Components[i] is TAction)
    then begin
// Puedes compararlo con el Caption del Action, 
// que seguro es más inteligible que el Nombre (Name) de los Action.
// Depende de lo que tengas guardado en esa lista.
      if (TAction(FormPrincipal.Components[i]).Name = Nombre) 
      then begin
        TAction(FormPrincipal.Components[i]).Execute;
        break;
      end;
    end;
  end;  
end;
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...

Última edición por defcon1_es fecha: 17-12-2009 a las 10:18:51.
Responder Con Cita