如果DBgrid中单元格为空，则用红色来表示，怎样写？

Question

内容同标题，解决马上给分！

Answer 1

procedure TFrmDetail.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
begin
  iffrmmain.adoquery2.Fields[0].AsString＝‘’ then  DBGrid1.Canvas.Font.Color:=clRed；
  DBGrid1.DefaultDrawColumnCell(rect,DataCol,column,state);

Answer 2

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
begin
  if DbGrid1.Fields[0].AsString＝‘’ then  DBGrid1.Canvas.Font.Color:=clRed；
  DBGrid1.DefaultDrawColumnCell(rect,DataCol,column,state);

Answer 3

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DBGrid1.DataSource.DataSet.Fields[DataCol].AsString = '' then
  begin
    DBGrid1.Canvas.Brush.Color := clRed;
    DBGrid1.DefaultDrawColumnCell(rect,DataCol,column,state);
  end
  else
  begin
    if gdSelected in state then
      DBGrid1.Canvas.brush.Color := clNavy
    else
      DBGrid1.Canvas.Brush.Color := clWhite;
    DBGrid1.DefaultDrawColumnCell(rect,DataCol,column,state);
  end;
end;

Answer 4

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.Field.AsString='' then
  begin
    dbGrid1.Canvas.Brush.Color:=clRed;
    dbgrid1.Canvas.Font.Color:=clblue;
  end;
DBGrid1.DefaultDrawColumnCell(rect,DataCol,column,state);
end;