Question

如何用delphi XE10编一个中文输入法

Answer 1

先定义一个公共变量
var ImeName : String;
然后你可以在用户登入的时候 选择输入法
procedure TValidateFrm.FormCreate(Sender: TObject);
var
i: Integer;
begin
Combobox1.Clear;
for i := 0 to Screen.Imes.Count - 1 do//(呵呵,刷出当前计算机的输入法:)
begin
Combobox1.Items.Add(Screen.Imes[i]);
end;
Combobox1.Text := Screen.Imes[0];
end;
当用户选择完输入法后,给ImeName付值.
PubUnit.ImeName := Combobox1.Text;