我用的是搜狗输入法,一般客户机上都是紫光的,你这个问题我也碰到过.

       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', '');