Question

delphi edit 控件问题

我想实现当程序开始运行时让用户选择自己熟悉的输入方法（微软、五笔 等）。选定之后在程序中所有需要汉字输入的地方，只要光标到达该 edit 控件，就自动切换到 所选定的输入法。
我可以自己建立一个 chinese_edit 控件，所有需要汉字输入的地方都用这个控件，现在不知道怎样动态改变其属性。使得从chinese_edit 继承来的所有chinese_edit1,chinese_edit2 。。。都能动态改变。

讨教高手！

Answer 1

我不是很了解你自己的edit控件,不过,你可以写个procedure来设定,在什么时候使你想要的chinese_edit 1..等的属性.你的chinese_edit1,2..等都继承自chinese_edit控件,应该可以这样吧 :
procedure setimemode(chiedit of array of Tchinese_edit);
var i : integer;
begin
for i := low(chiedit) to high(chieidt) do
begin
chiedit[i].imemode := imHanguel;
chiedit[i].imename := '智能ABC..';//在edit的属性栏中就可以找到.
end;
end;

然后在需要的地方调用:
setimemode([chinese_edit1.chinese_edit2,...]);
这时候所有你指定的edit就改变成procedure里你设置的输入法了.
(确保你自制的chinese_edit有imemode,miename属性).