Fórum TMenuIten and String ? #244031
22/07/2004
0
Gostaria de atribuir uma string a uma opcao do menu, exemplo:
Var
OPCAO: String;
begin
Opcao := ClientDataSet1.FieldByname(´MENU´).AsString;
TMenuItem(OPCAO).Visible := False;
Obrigada !
Renata Coimbra
Renata Coimbra
Curtir tópico
+ 0Posts
22/07/2004
Paulo_amorim
Utilize o FindComponent que deve funcionar
TMenuItem( FindComponent(opcao) ) := False;
Espero que ajude
Até+
Gostei + 0
22/07/2004
Renata Coimbra
Paulo, mais uma dúvida, eu gostaria de escrever essa rotina e depois só usar na aplicacao passando como parametro o MainMenu usado.
tentei assim mais deu erro:
Procedure TestaMenu(MainMenu: TMainMenu);
Var
OPCAO: String;
begin
While not DataSet.eof do
begin
Opcao := DataSet.FieldByname(´MENU´).AsString
TMenuItem( FindComponent(Opcao) ).Enabled := False;
DataSet.next;
end;
end;
end;
Obrigada !
Renata.
Gostei + 0
22/07/2004
Persist
Tente assim:
Gostei + 0
22/07/2004
Renata Coimbra
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)