问题好奇怪，又不知如何解决！

你把菜单的AutoHotKeys的属性改一下就可以了

解决方案 »

  1.   

    to jnww(山山)　:按你的方法可以解决了，但是菜单又不能有自动设定的快捷键了。
      

  2.   

    A+下划线其实是&A,你赋值时只要从第二个字符开始就可以了。
      

  3.   

    处理字符串，遇到&就删掉吧！
      

  4.   

    Goblin_name:=rightstr(trim((Sender as TMenuItem).Caption),strlen(Pchar(trim((Sender as TMenuItem).Caption)))-1);
      

  5.   

    TO Vincent_Jiang(无生无灭)： delphi中有Rightstr()这个函数吗？
      

  6.   

    TO VSaber(VSaber)：如何处理字符串，遇到&就删掉？
      

  7.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      showmessage(stringreplace('&adsf&', '&', '', [rfReplaceAll]));
    end;
      

  8.   

    to tjf1117(tjf1117): 谢谢你！给你加分了。