数据录入编辑界面如何保持输入法保持状态 ( 积分: 30 )

Y

yangxiufengcom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-25

• #1

录入界面上有几个Edit,当点保存后如何保持原输入法状态

我已将Edit的输入法模式设为最后一次的输入法了,高手来看看

 

L

lisongmagic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-25

• #2

在 form的 oncreate 或 onshow 里写
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:=0 to ComponentCount-1 do
if Components is TEdit then
TEdit(Components).ImeName:= Screen.Imes[Screen.Imes.Count-1];
end;
是这意思吗

 

Y

yangxiufengcom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-25

• #3

不知你的行不行_也是一种方法
我的意思:
在数据编辑界面有几个编辑框(Edit,combobox...),当我录入数据后执行保存数据的代码.
要仍然保持我录入数据时的输入法状态,如:我录入时用五笔,执行保存代码后仍然还是五笔.不知清不清楚

 

L

lisongmagic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-25

• #4

搞定了没。。。

 

B

boy2002cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-19

• #5

把这个ImeName放到注册表或者INI文件里保存着
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:=0 to ComponentCount-1 do
if Components is TEdit then
TEdit(Components).ImeName:='ImeName';
end;