高分帮忙!怎么做一个输入文本时可以切换输入法的程序?????

Question

Edit1.ImeName := '中文 (简体) - 微软拼音';

Answer 1

也许你希望的是自动切换输入法吧？
如果EDIT1进入时需要中文，EDIT2进入时需要英文？
那么你就在设计状态时，直接选中EDIT1,
有一个属性（是IMENAME吗？）直接设成“中文的一种输入法”，
EDIT2设成“关闭输入法”就可以了。如果是要动态的切换，我想最好是按下某键后，出来一个选择
“输入法”的选择框，选择后，就自动切换到该输入法。
CODING 如楼上。

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
   combobox1.style:=csdropDownlist;
   combobox1.Items:=screen.imes;
end;procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if combobox1.Text <>'' then
   begin
    edit1.ImeName :=combobox1.text;
    edit1.SetFocus ;
   end;
end;
//可以设置热健的！