|
沙发

楼主 |
发表于 2021-5-3 10:47:07
|
只看该作者
我用的是搜狗输入法,一般客户机上都是紫光的,你这个问题我也碰到过.
uses TypInfo;
for i := 0 to ComponentCount-1 do
if Assigned(GetPropInfo(Components[i],'ImeName')) then
SetPropValue(Components[i], 'ImeName', '');
然后在所有窗口create都调用这个过程吧
这个方法不错,但还有个问题是,碰到表格控件(TDBGrid),就得另外再单独对这个个控件进行处理了。
for j := 0 to DBGridEh1.FieldCount - 1 do
SetPropValue(DBGridEh1.Columns[j], 'ImeName', ''); |
|