转换输入法(100分)

S

shiner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-11

• #1

在窗体上放一TLISTBOX控件，一TEDIT控件，当程序启动时，TLISTBOX控件显示所<br>有输入法，用户在TLISTBOX中选择一种输入法时，EDIT控件的输入法即转换成用户<br>所选择的。请问该怎么实现？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-11

• #2

所有输入发可以从注册表里读出来，大约在这里：<br>hkey_current_user/keybord layout/preload<br>可以用ListBox1.Items.Append把它们 Add to LISTBOX控件里。<br><br>转换就简单了<br>procedure TForm1.ListBox1Click(Sender: TObject);<br>begin<br>&nbsp; Edit1.ImeName:=ListBox1.Items.Text;<br>end;<br><br>

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-11

• #3

screen.imes<br>一个TStrings<br>

 

R

Reboot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-11

• #4

给你妹了个demo

 

R

Reboot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-11

• #5

wrech的办法得不到EN

 

X

xie ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-12

• #6

看深度历险钱达智写的Windows 环境下的中英输入法切换

 

P

pqx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-17

• #7

procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; ListBox1.Items.AddStrings (screen.Imes);<br>end;<br><br>procedure TForm1.ListBox1Click(Sender: TObject);<br>begin<br>&nbsp; Edit1.ImeName:=ListBox1.Items[ListBox1.ItemIndex];<br>end;<br><br>

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #8

多人接受答案了。