请问高手：如何edit的获得当前输入法，及设定edit当前输入法

Question

请问高手：如何edit的获得当前输入法，及设定edit当前输入法,要求输入法能随意改换。

Answer 1

取得当前输入法：
 edit1.ImeName;设置输入法：
Procedure OpenIme(ImeName:string);
var
  i:Integer;
  myhkl:hkl;
begin
  if Trim(ImeName)<>'' then
  begin
    if Screen.Imes.Count<>0 then
    begin
      i:=Screen.Imes.IndexOf(ImeName);
      if i>=0 then
         myhkl:=hkl(Screen.Imes.Objects[i]);
      ActivateKeyBoardLayOut(myhkl,KLF_ACTIVATE);
    end;
  end;
end;

Answer 2

为什么我无法获得Edit.ImeName? 我的Edit.imeMode为imDontCare？……
我是想得到当前Edit的输入法

Answer 3

没错呀 通过 imename imemode 属性来获得呀 
哪里不对呀？  疑惑？？？？？