|
Hola amigo:
Supongo que estas utilizando un menu para tus opciones, lo que yo hice fue colocar todas las opciones del menu en su propiedad visible:=False que llegarian a ser los TMenuItem
en el evento onshow de la foma donde se encuentra mi menu lo que hago es lo siguiente:
Haces la consulta de tu tabla y recuperas el campo donde se encuentran tus opciones:
NOMBRE ESTADO
Opcion1 ACTIVO
Opcion2 ACTIVO
Opcion3 INACTIVO
query.First;
while not(query.Eof) do
begin
nombre:=query.Fields[0].AsString;
estado:=query.Fields[1].AsString;
For x := 0 To ComponentCount- 1 Do
If Components[x] Is TMenuItem Then
if (TMenuItem(Components[x]).name=nombre) and (estado='ACTIVO') then
begin
TMenuItem(Components[x]).visible:=True;
end;
query.Next;
end;
e identificas todos los componentes que sean de tipo TMenuItem, si en tu tabla en tu campo estado dice ACTIVO entonces lo muestras con la propiedad visible=True, en tu campo estado podrias ulitizarlo de tipo boolean (True,False).
Espero te sirva
|