var str:string; begin str:=copy(mainmenu1.Items[0].Caption,length(mainmenu1.Items[0].Caption)-3,4); mainmenu1.Items[0].Caption:='xxx'+str; end;
Caption := StripHotkey('文件(&f)'); // 文件
16,748
社区成员
33,247
社区内容
加载中
试试用AI创作助手写篇文章吧