怎样在程序中控制输入法？

Question

procedure ActivateIme(const AImeIndex: Integer);
var
  HandleToSet: HKL;
begin
  if AImeIndex > 0 then begin
    HandleToSet := HKL(Screen.Imes.Objects[AImeIndex]);
    ActivateKeyboardLayout(HandleToSet, KLF_ACTIVATE)
  end
end;

Answer 1

输入法可以从Screen.Imes属性中获得。

Answer 2

我想如果焦点在Edit1的话就自动切换到中文，在Edit2的话就切换到E文。

Answer 3

每个Edit都有ImeMode和ImeName属性。
英文的就不用动，中文的强ImeMode设为imChinese，ImeName设为合适的输入法名称就可以了。