procedure TForm1.DBGridEh1Columns0GetCellParams(Sender: TObject;
  EditMode: Boolean; Params: TColCellParamsEh);
begin
params.Text:=inttostr(params.Row);
end;     //这段话产生了序号procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
if  pos('E',adoquery1.FieldByName('料号').AsString)=3   then
DBGridEh1.Canvas.Brush.Color:=clyellow
   else
DBGridEh1.Canvas.Brush.Color:=clwhite;
DBGridEh1.DefaultDrawColumnCell(rect,datacol,column,state);
end;       //这段话有产生了画笔      
//当上面2段话分别单独运行都OK,单是在同一个工程中运行的话,就只显示画笔的颜色,就不显示序号,求解,这是为什么?