如何在光标移到edit1,调出指定的输入法？

Question

最好不能转换为其它的输入法，edit1失去焦点后才能转换输入法。

Answer 1

如：EDIT的ImeName可以设为“全拼输入法”

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Edit1.ImeMode := imChinese;
  ListBox1.Items.Assign(Screen.Imes);
  Edit1.ImeName := ListBox1.Items[0];
end;procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Edit1.ImeName := ListBox1.Items[ListBox1.ItemIndex];
end;

Answer 3

uses Imm;procedure TForm1.StringGrid1Enter(Sender: TObject);
var
  I:integer;
  myhkl:hkl;
begin
  I := Screen.Imes.Indexof('智能ABC输入法');//设置你想要的输入法
  if I>=0 then myhkl:=hkl(screen.Imes.objects[i]);
  ActivateKeyboardLayout(myhkl,KLF_ACTIVATE);
end;