DBGRID转成DBGRIDEH问题

Question

以前是用dbgrid现在改为dbgridEh 不能通过检验
 procedure DBGmxDrawColumnEhCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);procedure TYK.DBGColEnter(Sender: TObject);
var
a:tfield;
b:Tcolumn;
begin
  inherited;
  a:=dbg.SelectedField;
  b:=dbg.Columns[dbg.SelectedIndex];
  dbg.DefaultDrawColumnCell(rect,datacol,column,state);
end;如果以前用的是dbgrid现在改成dbgridEh有什么注意的吗应该说属性都差不多啊
要下面过程中b:Tcolumn执行通不过是不是b:TcolumnEh好像也不行

Answer 1

'TDBGrid'-->'TDBGridEh',
'DataCol: Integer; Column: TColumn;'--> 'DataCol: Integer; Column: TColumnEh;'
'Click(Column: TColumn);'-->'Click(Column: TColumnEh);'
'DbGrids'-->'DbGridEh'

Answer 2

1、在Delphi IDE下打开TDBGrid组件.
 2、通过组合键Alt-F12将form 以文本方式显示；
 3、将所有TDBGrid 对象名改变为 TDBGridEh对象名，如：DBGrid1: TDBGrid改为 DBGrid1: TDBGridEh；
 4、再次通过组合键Alt-F12将文本方式恢复为form 显示；
 5、将form各相关事件中定义的所有TDBGrid改为TDBGrideh,如DBGrid1: TDBGrid改为DBGrid1: TDBGridEh;
 6、重新编译应用程序。