MainMenu - como pegar o nome dos menus em um loop
Como fazer para q uma label receba nesse caso o nome do menu q está passando em cada momento no loop?
for Contador := 0 to FrmPrincipal.MainMenu1.Items.Count-1 do
.........
Label1.Caption:=..............
for Contador := 0 to FrmPrincipal.MainMenu1.Items.Count-1 do
.........
Label1.Caption:=..............
Janete
Curtidas 0
Respostas
Cabelo
04/04/2005
Não entendi muito bem sua questão, mas acho que deve ser isso..:
for Contador := 0 to FrmPrincipal.MainMenu1.Items.Count-1 do
begin
Label1.Caption:=MainMenu.Itens[Contador].caption;
end;
for Contador := 0 to FrmPrincipal.MainMenu1.Items.Count-1 do
begin
Label1.Caption:=MainMenu.Itens[Contador].caption;
end;
GOSTEI 0