我手动代码添加快捷键
procedure TForm1.Button2Click(Sender: TObject);
var item:TMenuItem;
tm:TMainMenu;
begin
tm:=TMainMenu.Create(NIL);
item := TMenuItem.Create(NIL);
item.Caption := 'test';
tm.Items.Add(item);
item := TMenuItem.Create(NIL);
item.Caption := 'test2'; tm.Items[0].Add(item);
self.Menu :=tm;end;但是我出现的问题是系统给我生成了快捷键~~~
如:主菜单:test(Y)
子菜单:test2(Z)
我不想要这快捷键~~请指教~~~~
procedure TForm1.Button2Click(Sender: TObject);
var item:TMenuItem;
tm:TMainMenu;
begin
tm:=TMainMenu.Create(NIL);
item := TMenuItem.Create(NIL);
item.Caption := 'test';
tm.Items.Add(item);
item := TMenuItem.Create(NIL);
item.Caption := 'test2'; tm.Items[0].Add(item);
self.Menu :=tm;end;但是我出现的问题是系统给我生成了快捷键~~~
如:主菜单:test(Y)
子菜单:test2(Z)
我不想要这快捷键~~请指教~~~~
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货