Question

delphi的程序如何控制输入法

就是输入文字的时候
如何才能让输入法就自始至终用一种
不是遇到一个Edit 或者Memo 就要切换。。

于删除本地输入法的方法就不用再说了

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;

然后遍滤 空件
在这边我只举一个例子.
for i := 0 to self.ComponentCount - 1 do
begin
if Self.Components[i] is TEdit then
(Components[i] as TEdit).ImeName := PubUnit.ImeName;
if Self.Components[i] is TMemo then
(Components[i] as TMemo).ImeName := PubUnit.ImeName;
end;

这样就可以了.不明白的可以问我.我都是这样做的,呵呵.