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.Line

>>阅读原文<<