简单中蕴藏着不简单

Question

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

Answer 1

self.ImeName := '全拼';
self.ImeName := '五笔';
self.ImeName := '智能ABC';前提是你的電腦要有安裝以上的輸入法

Answer 2

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

Answer 3

哈哈,就是这样的简单:)http://lysoft.7u7.net

Answer 4

pl5th2001(白牙)^_^ 看小说的人还是很多的呀 嘿 天人 这部小说 很棒!

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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

Answer 9

好的谢谢self.ImeName :='王码五笔型输入法86版';//这样都不可以呀
当前的输入法是什么?
如何知道当前的输入法是什么？
已经何获得一台机子上有哪些输入法，如何取出其中一项输入法呢我机子上有
王码五笔型输入法86版
中文 (简体) - 全拼
中文 (简体) - 微软拼音
中文 (简体) - 郑码
中文 (简体) - 智能 ABC

Answer 10

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

Answer 11

//已经何获得一台机子上有哪些输入法，如何取出其中一项输入法呢
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。