只剩45分了~,诸位帮个忙吧,关于动态生成菜单的问题。(45分)

  • 主题发起人 主题发起人 Ghostcn
  • 开始时间 开始时间
G

Ghostcn

Unregistered / Unconfirmed
GUEST, unregistred user!
我是这么动态创建菜单的。
procedure TFrm_Main.AddMenu;
var
NewItem: TMenuItem;
i: Integer;
j: String;
begin
Menu_A.Clear;
for i:=0 to TreeView1.Items.Item[0].Count-1 do
begin
NewItem:=TMenuItem.Create(Self);
NewItem.Caption:=TreeView1.Items.Item[0].Item.Text;
NewItem.ImageIndex:=24;
NewItem.OnClick:=AddMenuClick;//响应事件
Menu_A.Add(NewItem);
end;
end;

但是如果加进去的TEXT是中文,它就会自动给我在后面加上快捷键,比如:菜单文本(A)。
谁知道怎么才能让它不加快捷键?
 
在中文后面加一个&符号
 
多谢了~感激~~[:)]
 
后退
顶部