Menu urgente....sera quem q pode ajudar

Question

Para habilitar e desabilitar op��o de Mainmenu(Menu)....... pelo componente dbcheckbox.........obrigado....quem poder me ajudar...

Qmd · Answer

Se na sua tabela vc tiver 2 campos:
NomedoMenu : String
Ativo : boolean
vc poderia usar findcomponent() pra habilitar/desabilitar o item de menu:

TMenuItem( FindComponent( Tabela.FieldByName(�NomedoMenu�).asString ) ).Enabled := Tabela.FieldByName(�Ativo�).asBoolean;

Se for incluir essa rotina no evento onClick do dbcheckbox :

TMenuItem( FindComponent( Tabela.FieldByName(�NomedoMenu�).asString ) ).Enabled := dbcheckbox1.checked;

Falow