帖子不能连续回复三次以上,没办法,重开帖子
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
  if Column.Field.fieldname = 'User' then 
  begin 
    if column.Field.Value = Null then 
    begin 
      DBGrid1.canvas.font.Color := clblue; 
      DBGrid1.Canvas.Brush.Color := clbtnface; 
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
    end; 
  end 
end;
这段代码可以控制当前显示的单元格,但想控制除本单元格外,它左边的二个单元(第3,4列)也是这背景色