请问怎样动态改变当前输入法？

Question

我将IMENAME赋为我需要的输入法，只是在窗体建立时才有效，可是我想再自建的右键弹出菜单中改变输入法却不行，不知道是什么原因？

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit1.ImeName := '中文(繁體) - 萬能五筆2002多元輸入法';
  Edit1.SetFocus;
end;一定要清楚你的機器上有此輸入法，我編譯通過。（D5 + Win2000）

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.N1Click(Sender: TObject);
begin
  Edit1.ImeName := '中文 (简体) - 微软拼音';
  Edit2.SetFocus;
  Edit1.SetFocus;
end;procedure TForm1.N2Click(Sender: TObject);
begin
  Edit1.ImeName := '中文 (简体) - 智能 ABC';
  Edit2.SetFocus;
  Edit1.SetFocus;
end;end.刚刚try了一下

Answer 3

楼上，他本来是问怎样用右键，你现在用了button，因为按button的时候，focus会去到button，所以edit里面的输入法可以改变，但是如果你在edit里面右键popmenu的时候，就要人为的把focus移出去，这是最重要的一点，是吗？