Menu urgente....sera quem q pode ajudar

Delphi

10/03/2003

Para habilitar e desabilitar opção de Mainmenu(Menu).......
pelo componente dbcheckbox.........



obrigado....quem poder me ajudar


Anonymous

Anonymous

Curtidas 0

Respostas

Qmd

Qmd

10/03/2003

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


GOSTEI 0
POSTAR