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

>>阅读原文<<