动态创建的菜单项会自说自话加上快捷键 :(

不是。
它的默认方式是带这个快捷的。
什么xyz....
你置false就行了。

解决方案 »

  1.   

    private:
      procedure MenuClick(Sender : TObject);
    procedure TForm1.MenuClick(Sender : TObject);
    begin
      ShowMessage('OK');
    end;
    ...
    ...
      MenuItem.OnClick := MenuClick;
    ...
    ...
      

  2.   

    刚才讲错了。
    回复人：　Nizvoo(瓦匠泥)　(2001-9-24 13:50:20)  得0分 
    不是。
    它的默认方式是带这个快捷的。
    什么xyz....
    你置false就行了。  
    应该如海龙所讲的我老记得是置false.
      

  3.   

    MenuItem.Caption:=strings[i];
    或者你在strings[i]里给你想添&的位置加个&也可以啊。
      

  4.   

    你们说的都不行啊
    我仔细检查了Tmenuitem，没有找到xyz什么的，相关的好象只有AutoHotKeys，设置了AutoHotKeys:=maManual;但那该死的快捷还是出现 :(
      

  5.   

    AutoHotKeys:=maManual是正解，你还是在试试吧
      

  6.   

    就是AutoHotKeys属性，你去仔细设置一下
      

  7.   

    自動傢的好像是從z開始的，有兩個就是y,z有三個就是x,y,z
      

  8.   

    对，确实是从z开始的，如果菜单中有英文字母正好排到，就将这字符加上快捷，如果没有，则加个括号将快捷键显示在后面我已经将menu的所有能设的都autohotkeys:=maManual了，它就是顽固的要出现，真是头疼我试过了，如果不用toolbar显示menu而是直接用窗体显示，就没有这种情况了，toolbar显示menu真是问题多多，我还碰到一中在ie控件的input和textarea输入字符会激发toolbar中该字符热键的菜单的怪问题，唉，bug成堆的toolbar
      

  9.   

    我也遇到过这样的问题，最后采用这种办法：
    for i:=0 to strings.count-1 do
      begin
        MenuItem:=TMenuItem.Create(self);
        MenuItem.Caption:='&'+IntToStr(I+1)+'. '+ strings[i];//这一句有变动
        MenuItem.Name:='mnuTools' + IntToStr(i);
        MenuItem.Add(subMenuItem);
      end;最后的效果是：
    &1. aaa
    &2. bbb
    ...
      

  10.   

    最新发现，如果一个窗体中同时有TWebBrowser和Toolbar(Show Caption)，那在TWebBrowser的input和textarea中就无法输入toolbar按钮热键的字符，按下无用。
    如果toolbar的button设置为Menuitem，则输入toolbar按钮热键的字符则激发该按钮菜单，大家可以去试试，大概是delphi的bug吧，我还没找到解决的办法，请大家来帮忙
      

  11.   

    DFW上有一篇文章，通过修改Menu.pas原代码解决问题，你去找找吧