|
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.
|