Fórum Carregar os Itens do Menu em uma tabela #262582

[b:0f627b9c95][color=red:0f627b9c95]Notificação de Infração às Regras de Conduta :[/color:0f627b9c95][/b:0f627b9c95]

Duplicidade
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=56274[/url]

Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].

Pessoal desculpa acredito ter acontecido alguma falha e duplicou o tópico, neste caso especifico sugiro a quem de direito apagar o tópico pois os dois são identicos

Amigo se compreendi direito vc quer assim.. em um TMainMenuv que esteja assim

ARQUIVO - RELATORIOS

Novo Cliente
Salvar Produto
Sair

Vc quer ligar os de arquivo e depois dos relatorios que tenha uma condicao feita por tag aceita? eu so nao entendi aonde vc vai jogar isso.. mas fiz uma function para vc

Function ListarMenu(Menu:TMainMenu; Tag_Numero:Integer):TStrings;
var
x, y:integer;
Lista:TStringList;
begin
Lista:=TStringLIst.Create;
For x:= 0 to Menu.Items.Count -1 do
Begin
Lista.Add(Menu.Items[x].Caption);
For y:= 0 to Menu.Items[x].Count -1 do
if Menu.Items[x].Items[y].Tag = Tag_Numero then
Lista.Add(Menu.Items[x].Items[y].Caption);
LIsta.add(´´);
end;
result:=Lista;
end;

Para utilizar, faz assim

Memo1.lines:=ListarMenu(MainMenu1, 0);

Ai vai jogar o resultado no Memo
Se nao for isso que gostaria dar mais detalhes que eu tento fazer para vc, Espero ter ajudado

Renato / SP

OBS - Ao enviar a function para o forum, perdeu a Identação alguem saberia me dizer como mandar function usando Identação que utilizei no delphi... Valeu

Renato Resolveu Meu problema

Valeu mesmo

Obrigado