Instrucción dinamica para desactivar menu en Delphi

[Gustavo Restrep]

Como puedo armar una instrucción dinamicamente para usar el nombre del menú desde una variable ?

Por ejemplo:

MenuVentas.Items[0].enable : False

necesito usar una variable en vez de MenuVentas, asi

variable:='MenuVentas'

variable.Items[0].enable : False

Gracias

[dec]

Hola,

Tal vez puedas valerte de la función "FindComponent". Échala un vistazo a ver y cuentas qué tal.

[Gustavo Restrep]

Gracias David,

Si me sirvio tu pista, y asi lo solucioné:

Código Delphi [-]
var
  CompW : TComponent;
  Variable : String;
 
begin
  Variable:='MenuVentas';
  CompW:=FindComponent('Variable');
  TMenu(CompW).Items[0].enable : False;
end;

Realmente en vez de una variable voy a usar un dato recuperado de una base de datos, pero es igual.

[[Lepe]]

Sugerencia contra fallos:

Código Delphi [-]
procedure CreaMenuDinamico;
var
  CompW : TComponent;
  Variable : String;
 
begin
  Variable:='MenuVentas';
  CompW:=FindComponent(Variable);
  if CompW = nil then
     raise Exception.CreateFmt('procedimiento CreaMenuDinamico: No se ha encontrado %s para crear el menú.',[variable]);
  TMenu(CompW).Items[0].enable : False;
end;

Si el componente se llama "MenuVentas" e intentas buscar por "MenuVenta" provocará un access violation sin más información.

Con esa condición añadida, obtienes una Excepción.... el programa se para, sí, pero te está diciendo exactamente en qué procedimiento y además la variable que no está encontrando. Buscar el fallo es cosa de niños .

Como leí por algún sitio: KISS (Keep It Simple STUPID ) Realmente funciona jejeje.

Saludos.