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)。
谁知道怎么才能让它不加快捷键?
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)。
谁知道怎么才能让它不加快捷键?