大家帮我查一下错,一旦没有问题立刻给分,急,谢谢!

                            
我想在dbgrid加一列显示数据的序号,按材料输了一下内容   
  双击DBGrid,先把所有字段加进去,再在最前面加一个字段,在DrawColumnCell中写      
  procedure     TForm1.DBGrid1DrawColumnCell(Sender:     TObject;     const     Rect:     TRect;      
        DataCol:     Integer;     Column:     TColumn;     State:     TGridDrawState);      
  begin      
        if     Column.Index     =     0     then      
        with     DBGrid1.Canvas     do     begin      
                FillRect(Rect);      
                TextOut(Rect.Left+2,     Rect.Top+2,     IntToStr(DBGrid1.DataSource.DataSet.RecNo));      
        end;      
  end;      
  运行报错,有DBGrid1DrawColumnCell未曾定义等等  
  麻烦各位看看那里不对,急  
 

查看回复