如何获取应用程序所有的菜单ID并且可以对其进行操作

解决方案 »

  1.   

    获取菜单所有ID
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i,j: Integer;
    begin
      for i:=0 to mnu.Items.Count-1 do
      begin
        Memo1.Lines.Add(mnu.Items.Items[i].GetNamePath);
        for j:=0 to mnu.Items.Items[i].Count-1 do
        begin
          Memo1.Lines.Add(mnu.Items.Items[i].Items[j].GetNamePath);
        end;
      end;
    end;
    你想怎么操作?
      

  2.   

    http://www.516688.net/ergong/down/wzsk5f.exe 
    那可不行 程序必须读懂老外的文章,偶们的DELPHI也是BORLAND公司的
    不是中国人做出来(现在还没这个水平)所以去看DELPHI的帮助文件中有讲?是要这个吗?