如何显示本机的输入法

bruceoffice 2012-05-16 02:37:27

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

...全文

190 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

山东蓝鸟贵薪 2012-05-19

打赏
举报

不清楚，关注一下，
最近也在研究这个小程序的

bruceoffice 2012-05-19

打赏
举报

[Quote=引用 3 楼的回复:]
我们的做法是把员工输入法存入数据库或者本地ini，员工登陆的时候读取，edit onenter设置imes。
[/Quote]
正解

lyhoo163 2012-05-19

打赏
举报

个人注册同时，保存输入法字符，在每个from的onShow事件中，再设置该用户的输入法。

我看见佛 2012-05-18

打赏
举报

借你的楼层站个位置，以示存在并庆祝周六的到来！

FCU 2012-05-18

打赏
举报

本地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;

jjpweb 2012-05-17

打赏
举报

我们的做法是把员工输入法存入数据库或者本地ini，员工登陆的时候读取，edit onenter设置imes。

编程保姆 2012-05-17

打赏
举报

同意上楼的做法

bruceoffice 2012-05-16

打赏
举报

ComboBox1.Items:=Screen.Imes;就可以了,有没有办法得到默认的输入法

lyhoo163 2012-05-16

打赏
举报

给你一段代码：
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;