请问各位高手，如何的得到当前系统的输入法列表，经用和选择后，并把它负值给一个edit空间

Question

两句话：
第一个初始化ComboBox，使里面包含所有输入法名  ComboBox1.Items = Screen.Imes;然后在comBobox的Change事件里写如下代码。  Edit1.ImeName = ComboBox1.Text;试试吧。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var ImeNames: TStrings;
begin
  ImeNames := TStringList.Create;
  ImeNames := Screen.Imes;
  Edit1.ImeName := ImeNames[0];
  ImeNames.Free;
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————