delphi 遍历菜单
遍历主菜单及子菜单:
运行结果如下
代码如下
procedure TForm1.Button1Click(Sender: TObject);
var
i,k:integer;
begin
memo1.Lines .clear;
for i:=0 to mainmenu1.items.count-1 do
begin
memo1.Lines .add(#13) ;
memo1.Lines .add(mainmenu1.items.items[i].Caption);
memo1.Lines .add('') ;
for k:=0 to mainmenu1.items.items[i].Count-1 do
begin
if mainmenu1.items.items[i].items[k].caption<>'-' then
memo1.Lines .add(mainmenu1.items.items[i].items[k].caption);
end;
end;
end;
研究他人软件代码时,如果需要把菜单内容提出来,就直接用上面的代码就行