5,392
社区成员
发帖
与我相关
我的任务
分享
procedure GetImeList(List: TStrings);
var i:integer;
begin
for i:=0 to screen.imes.count-1 do
begin
if i=0 then
ImeNameS:=screen.Imes.strings[i];
List.Add(screen.Imes.strings[i]);
end;
end;
GetImeList(cbbImes.Items);
上述代码试试,如何。