Menu configurable

[erasmorc]

Buenas tardes,

Bien sigo sin entender, tienen que tenerme paciencia porque soy un novato en programacion orientada a objetos y hay cosas que no las comprendo.

De tu ejemplo pude saber como convertir un texto a Taction y eso ya es un avance, pero aun no me funciona lo que quiero hacer mira este codigo

procedure TFMenuUsuarios.cxButton5Click(Sender: TObject);
var comp : Taction;
begin
comp := FindComponent (FUsuarios.QMenuNombreObjeto.Value) as TAction;
TAction(comp).Execute;
end;

se supone que deberia funcionar ahi lo que hago es segun el registro en que estoy posicionado ejecuto la action del action list, ya que el contenido de ese registro es el nombre del item en el action list. Pero no funciona.

Sin embargo si sustituyo la variable por el nombre directo del item del action list si funciona. seria algo asi

procedure TFMenuUsuarios.cxButton5Click(Sender: TObject);
var comp : Taction;
begin
comp := FindComponent (MnCuentas) as TAction;
TAction(MnCuentas).Execute;
end;

Donde MnCuentas es unos de los action list contenidos en la tabla desde donde estoy ejecutando.

Espero haberme explicado correctamente para ver si me pueden dar alguna ayuda sobre esto. Gracias anticipadas.

[Neftali [Germán.Estévez]]

Hola.
Añade TAG's al código para que se lea mejor.

El problema es que esos dos códigos no son equivalentes, ya que en el segundo:

Código Delphi [-]
  TAction(MnCuentas).Execute;

MnCuentas no es el nombre del componente, sino el componente en sí.

Vamos por partes (como dijo Jack el destripador...)

Coloca el siguiente código:

Código Delphi [-]
var
  Str:string;
  comp:TComponent;
begin

  // Extraer el nombre
  Str := FUsuarios.QMenuNombreObjeto.Value;
  MessageDlg('Nombre la la Action: ' + Str, mtInformation, [mbOK], 0);

  Str := FUsuarios.QMenuNombreObjeto.AsString;
  MessageDlg('Nombre la la Action (string): ' + Str, mtInformation, [mbOK], 0);

  // Buscar la Taction
  comp := FindComponent(Str);
  // encontrado
  if Assigned(Comp) then begin
    MessageDlg('Encontrado el componente: ' + Str, mtInformation, [mbOK], 0);
    if (comp is TAction) then begin
      // encontrada la TAction
      TAction(comp).Execute;
    end;
  end
  else begin
    MessageDlg('No encontrado el componente: ' + Str, mtWarning, [mbOK], 0);
  end;

Ejecútalo, paso a paso, si hace falta y dinos qué mensajes te salen...