动态建立的菜单是Windows原来的风格。
下面是我的代码：
procedure TForm1.suiButton1Click(Sender: TObject);
var
   myMenu : TMenuItem;
   i : integer;
begin
     for i := 1 to 5 do
     begin
     myMenu := TMenuItem.Create(N2);
     myMenu.Caption := '第' + IntToStr(i) + '个';
     N2.Add(myMenu);
     end;
end;

界面：

添加菜单后：
还自动加了热键(&1)、(&2)、(&3)，这是为什么？

[ 本贴由 flyingsoft 于 2004-9-10  15:44 编辑过 ]

添加菜单后请调用 suiMainMenu.MenuAdded();

注册用户技术支持请email: support@sunistudio.com

修改一下菜单项的AutoHotkeys和AutoLineReduction属性, 因为Delphi不支持中文你的菜单中只有数字字符可以接受, 加上逆上面两个属性都是设置的maParent所以系统自动就将数字设置为热键了.

将上面两个属性都设置maManual就可以了. 然后在添加菜单的时候使用"&"指定你想要的热键就好了.