菜单需要动态生成?还在事先已经定义好了,只是进行汉化? 如果是后者,有个想法不知是否可行?你试一下: 你给每个需要汉化的菜单的Tag设一个值比如说是10 然后在配置文件中设置一下 [10] Caption:=汉化测试先把所有的小节名用ReadSeactions读出来放到一个List中 做一个循环 for i:=0 to Components.Count-1 do begin if Componets[i].ClassType = TMenuItem then begin for j:=0 to 取出小节名List.Count -1 do begin TMenuItem(Componets[i]).Tag=10..... TMenuItem(Componets[i]).Caption:=汉化测试; end end; end; 以上未测试
比如mmiAAA
var
Ini: TIniFile;
begin
....
mmiAAA.Caption := Ini.Read(.....);
....
end;
------------------------------
可能对应关系(顺序)会出问题,即使可以的话也就相当于你写个函数,在函数中一个一个的赋值在需要的时候调用而已
如果是后者,有个想法不知是否可行?你试一下:
你给每个需要汉化的菜单的Tag设一个值比如说是10
然后在配置文件中设置一下
[10]
Caption:=汉化测试先把所有的小节名用ReadSeactions读出来放到一个List中
做一个循环
for i:=0 to Components.Count-1 do
begin
if Componets[i].ClassType = TMenuItem then
begin
for j:=0 to 取出小节名List.Count -1 do
begin
TMenuItem(Componets[i]).Tag=10.....
TMenuItem(Componets[i]).Caption:=汉化测试;
end
end;
end;
以上未测试