TMenuIten and String ?
Bom dia !
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
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
Curtidas 0
Respostas
Paulo_amorim
22/07/2004
Olá
Utilize o FindComponent que deve funcionar
TMenuItem( FindComponent(opcao) ) := False;
Espero que ajude
Até+
Utilize o FindComponent que deve funcionar
TMenuItem( FindComponent(opcao) ) := False;
Espero que ajude
Até+
GOSTEI 0
Renata Coimbra
22/07/2004
Obrigada Paulo, deu certo !
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.
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
Persist
22/07/2004
TMenuItem( FindComponent(Opcao) ).Enabled := False;
Tente assim:
TMenuItem(MainMenu.Owner.FindComponent(Opcao) ).Enabled := False;
GOSTEI 0
Renata Coimbra
22/07/2004
Obrigada !
GOSTEI 0