简单中蕴藏着不简单

[chenzhichao2008]

现在我要写一段代码，要实现功能如下：
当单击Button1时，输入法自动切换到“全拼”
当单击Button2时，输入法自动切换到“五笔”
当单击Button3时，输入法自动切换到“智能ABC”
哪一位朋友帮忙哦，
路过朋友也帮忙下顶一下，我也一样会给分的
谢谢先了

[nyf1220]

郁闷啊，哈
别太快了，给我们流点

[ztenv]

就是那样，

[ly_liuyang]

哈哈,就是这样的简单:)

http://lysoft.7u7.net

[pl5th2001]

哪里体现不简单了？

[beyondtkl]

pl5th2001(白牙)

^_^ 看小说的人还是很多的呀 嘿 天人 这部小说 很棒!

[whythinkwhy]

hohoho

[psp2003]

aiirii(ari-爱的眼睛) 大侠说得很对呀
1

[chenzhichao2008]

不行呀,我照做了,不行的
self.ImeName := '全拼输入法5.0版';//这我机子上有装的,都不可以呀
还有如何获得一台机子上有哪些输入法,当前的输入法是什么?
谢谢了

[aiirii]

Memo1.Lines.Assign(screen.Imes);
可以放到memo中

[aiirii]

http://bbs.ee.ntu.edu.tw/boards/Programming/12/14.html
切換輸入法

[chenzhichao2008]

好的谢谢

self.ImeName :='王码五笔型输入法86版';//这样都不可以呀
当前的输入法是什么?
如何知道当前的输入法是什么？
已经何获得一台机子上有哪些输入法，如何取出其中一项输入法呢

我机子上有
王码五笔型输入法86版
中文 (简体) - 全拼
中文 (简体) - 微软拼音
中文 (简体) - 郑码
中文 (简体) - 智能 ABC

[chenzhichao2008]

to aiirii(ari-爱的眼睛) ( )
特别谢谢你呵，晚上请你吃饭
不过你能不能写个简单一点的

[aiirii]

self.ImeName := '全拼';
self.ImeName := '五笔';
self.ImeName := '智能ABC';

前提是你的電腦要有安裝以上的輸入法

[paybfly]

aiirii(ari-爱的眼睛)
完全正确

[DemonLoveLizzy]

//已经何获得一台机子上有哪些输入法，如何取出其中一项输入法呢
procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Items.CommaText:=Screen.Imes.CommaText;
combobox1.Items.Append('E文') ;

end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
EDIT1.Imename := ComboBox1.Text;
form1.Caption :=combobox1.Text ;
EDIT1.Imemode := imopen ;
end;

窗体放一个COMBOBOX，一个EDIT。

[chenzhichao2008]

谢谢们 ,我明白了

[hawk_js]

帮顶，顺便学习