两句话:
第一个初始化ComboBox,使里面包含所有输入法名 ComboBox1.Items = Screen.Imes;然后在comBobox的Change事件里写如下代码。 Edit1.ImeName = ComboBox1.Text;试试吧。
第一个初始化ComboBox,使里面包含所有输入法名 ComboBox1.Items = Screen.Imes;然后在comBobox的Change事件里写如下代码。 Edit1.ImeName = ComboBox1.Text;试试吧。
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 := '加不加分随你';
—————————————————————————————————