能否不用编程实现菜单自动生成以连续的数字为快捷键+mainmenu1.items.caption的菜单项

[oupj]

同上

[hthunter]

Mainmenu1.Items[i].Caption := '&' + IntToStr(n) + Mainmenu1.Items[i].Caption;
//设置之后n就是该菜单项的快捷键
以下是我原来用来遍历一个菜单（用了递归），以输出菜单的树型结构字符串的代码，希望对你有所帮助：
var
sl: TStrings;
j: Integer;

procedure GetSubItem(mi: TMenuItem; sTabs: String);
var
i: Integer;
begin
if (mi.Visible = False) then Exit;
sl.Add(sTabs + mi.Caption);

for i := 0 to (mi.Count - 1) do
GetSubItem(mi.Items[i], sTabs + ' '); //这里的TAB字符用于控制层次
end;
begin
sl := TStringList.Create;
for j := 0 to 11 do GetSubItem(MainMenu1.Items[j], '');
sl.SaveToFile('主菜单结构.txt');
sl.Free;
end;

[hthunter]

不编程应该不行，菜单有个AutoHotKeys的功能，不过自动生成的快捷键是一些随机字母