delphi 怎样实现中文输入法

先定义一个公共变量

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

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

在我的窗口中，有个edit 控件，我想当他得到焦点是，输入法马上变成汉字输入，不要再人工切换。

请教高手！

解析:

把edit控件的imemode属性设置成imChinese，然后把imename属性设置好就可以了

---