如何让DBGrid的某一行某一列显示成红色

[ujjcel]

当符合一定的条件时,如何让DBGrid的某一行某一列显示成红色?望高手指教.

[maxtool]

100分哦，我也要来分点。

[ryan2006]

接分！

[Comer]

来晚的给点纪念奖好了

[postren]

100分啊，我要

下面的代码可以改变单元格的字体、背景颜色

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (DataCol = 1)and(ADOTable1.FieldByName('UserName').Value = 'Administrator') then
begin
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.Brush.Color := clLime;
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

以上代码仅把第一列（从零列开始），第UserName='Administgrator'行的单元格的字体颜色改为红色，背景颜色改为亮绿色

[hongqi162]

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
DBGrid1.Canvas.Font.Color:=clred;
DBGrid1.Canvas.Brush.Color:=clgray;

{//改变某个单元格的颜色
if (Field.FullName='SIZE')and (Field.AsInteger=2) then
begin
DBGrid1.Canvas.TextRect(rect,rect.Left,rect.Top,Field.AsString);
end;}

//改变某行的颜色，该行的NAME字段值=aaa
if Field.DataSet.FieldByName('NAME').asString='aaa' then
DBGrid1.Canvas.TextRect(Rect,rect.Left,rect.Top,Field.AsString);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//改变某个列的颜色
DBGrid1.Columns[1].Color:=clgreen;
DBGrid1.Columns[1].Font.color:=clred;
end;

[hongqi162]

100分啊，，，

[dabaicai]

浪费了，唉

[dovelee]

mark

[hfltp]

我也想要
来晚了

[GARNETT2183]

算了。。。接点分。。

[aniugee]

mark

[jerry8]

来晚的给点纪念奖好了

[zhengsq007]

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
DBGrid1.Canvas.Font.Color:=clred;
DBGrid1.Canvas.Brush.Color:=clgray;

{//改变某个单元格的颜色
if (Field.FullName='SIZE')and (Field.AsInteger=2) then
begin
DBGrid1.Canvas.TextRect(rect,rect.Left,rect.Top,Field.AsString);
end;}

//改变某行的颜色，该行的NAME字段值=aaa
if Field.DataSet.FieldByName('NAME').asString='aaa' then
DBGrid1.Canvas.TextRect(Rect,rect.Left,rect.Top,Field.AsString);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//改变某个列的颜色
DBGrid1.Columns[1].Color:=clgreen;
DBGrid1.Columns[1].Font.color:=clred;
end;

[swcsoft]

随便给点吧...他们都回答了!

[LevnWang]

一两分也要

[lijingzhan]

up

[zhitaoyang]

专业接分,不知道到我这里还有没了...

[grjs2004]

接分

[yhloveys]

我也来接点分