edit中输入法的问题(10分)

C

cb1997

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #1

在一个窗口中有多个edit输入控件，如何才能使第一个edit选择了输入法后，其它的edit都使用
和它一样的输入法？？？？？？？？？

 

A

andy_qin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ComponentCount-1 do
begin
if Components is tedit then
(components as tedit).ImeName:='王码五笔型';
end;

end;

 

沙

沙_儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #3

在第一个Edit的OnExit中写
for i:=0 to ComponentCount-1 do
begin
if Components is tedit then
(components as tedit).ImeName:=Edit1.ImeName;
end;

 

C

cb1997

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #4

多人接受答案了。