![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#2
|
||||
|
||||
|
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 |
|
|
|