怎么显示本机的输入法

如何显示本机的输入法
如何显示本机的输入法,员工希望在edit输入时指定输入法,不要切换

[解决办法]
给你一段代码：
procedure TSetImeFrm.GetImeList(List: TStrings);
var i:integer;
begin
for i:=0 to screen.imes.count-1 do
begin
if i=0 then
begin
ImeNameS:=screen.Imes.strings[i];
end;
List.Add(screen.Imes.strings[i]);
end;
end;

[解决办法]
我们的做法是把员工输入法存入数据库或者本地ini，员工登陆的时候读取，edit onenter设置imes。
[解决办法]
同意上楼的做法
[解决办法]
本地INI最好，数据库就没多大必要了

设置默认输入法
uses TypInfo

procedure SetImeA(AOwner:TForm);
var
i:Integer;
begin
for i := 0 to AOwner.ComponentCount - 1 do
begin
if GetPropInfo(AOwner.Components[i],'ImeName')<>nil then
begin
SetPropValue(AOwner.Components[i],'ImeName',
readinifile(getinifile,'ime','imename',''));
end;
end;
end;



[解决办法]
借你的楼层站个位置，以示存在并庆祝周六的到来！
[解决办法]
不清楚，关注一下，
最近也在研究这个小程序的
[解决办法]
个人注册同时，保存输入法字符，在每个from的onShow事件中，再设置该用户的输入法。