关于DBGridEH的棘手问题！ --关于单元格颜色控制显示的问题！（１００分双手奉）

Question

我想实现以下的功能：   当用户改变了GRIDEH中某一单元格的内容的时候，改变的值与原来的值大小进行比较,此单元格显示不同颜色.

Answer 1

根据你单元格的位置自己draw吧

Answer 2

我也想给你写个例子，问题是机子没Delphi，正在下2006，还有7、8十天吧。晕！自己试试啊，或者找找以前的相关帖子，不是很难的东西。

Answer 3

这个不知是在哪找到了,反正能用就是了
procedure TF_kcchange.DBGrid1DrawDataCell(Sender: TObject;
? const Rect: TRect; Field: TField; State: TGridDrawState);
begin
? if DBGrid1.DataSource.DataSet.RecNo? mod 2=0 then
????? begin
???????? DBGrid1.Canvas.Brush.Color :=clWhite ;
???????? DBGrid1.Canvas.FillRect(Rect);
???????? DBGrid1.Canvas.Font.Color :=clBlack;
????? end
?? else
????? begin
???????? DBGrid1.Canvas.Brush.Color :=rgb(231,244,254) ;
???????? DBGrid1.Canvas.FillRect(Rect);
???????? DBGrid1.Canvas.Font.Color :=clBlack;
????? end;
?? if gdSelected? in State then
???? begin
?????? DBGrid1.Canvas.Brush.Color :=clRed ;
?????? DBGrid1.Canvas.FillRect(Rect);
?????? DBGrid1.Canvas.Font.Color :=clBlack;
???? end;
??? DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

Answer 4

如何使DBGRID网格的颜色随此格中的数据值的变化而变化。如<60的网格为红色？
    Delphi中数据控制构件DBGrid是用来反映数据表的最重要、也是最常用的构件。在应用程序中，如果以彩色的方式来显示DBGrid，将会增加其可视性，尤其在显示一些重要的或者是需要警示的数据时，可以改变这些数据所在的行或列的前景和背景的颜色。
　　DBGrid属性DefaultDrawing是用来控制Cell（网格）的绘制。若DefaultDrawing的缺省设置为True，意思是Delphi使用DBGrid的缺省绘制方法来制作网格和其中所包含的数据，数据是按与特定列相连接的Tfield构件的DisplayFormat或EditFormat特性来绘制的；若将DBGrid的DefaultDrawing特性设置成False，Delphi就不绘制网格或其内容，必须自行在TDBGrid的OnDrawDataCell事件中提供自己的绘制例程（自画功能）。
　　在这里将用到DBGrid的一个重要属性：画布Canvas，很多构件都有这一属性。Canvas代表了当前被显示DBGrid的表面，你如果把另行定义的显示内容和风格指定给DBGrid对象的Canvas，DBGrid对象会把Canvas属性值在屏幕上显示出来。具体应用时，涉及到Canvas的Brush属性和FillRect方法及TextOut方法。Brush属性规定了DBGrid.Canvas显示的图像、颜色、风格以及访问Windows GDI 对象句柄，FillRect方法使用当前Brush属性填充矩形区域，方法TextOut输出Canvas的文本内容。　　以下用一个例子来详细地说明如何显示彩色的DBGrid。在例子中首先要有一个DBGrid构件，其次有一个用来产生彩色筛选条件的SpinEdit构件，另外还有ColorGrid构件供自由选择数据单元的前景和背景的颜色。　　1.建立名为ColorDBGrid的Project，在其窗体Form1中依次放入所需构件，并设置属性为相应值，具体如下所列：　　 Table1 DatabaseName: DBDEMOS
     TableName: EMPLOYEE.DB
     Active: True;
 　　DataSource1 DataSet: Table1
 　　DBGrid1 DataSource1: DataSource1
     DefaultDrawing: False
 　　SpinEdit1 Increment:200
     Value: 20000
 　　ColorGrid1 GridOrdering: go16＊1　　2.为DBGrid1构件OnDrawDataCell事件编写响应程序：//这里编写的程序是<60的网格为红色的情况，其他的可以照此类推
　　procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;Field: TField; State: TGridDrawState);
　　begin
　　 if Table1.Fieldbyname(′Salary′).value<=SpinEdit1.value then
  　　 DBGrid1.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor
　　 else
　  　 DBGrid1.Canvas.Brush.Color:=ColorGrid1.BackGroundColor;
　　 DBGrid1.Canvas.FillRect(Rect);
　　 DBGrid1.Canvas.TextOut(Rect.left＋2,Rect.top＋2,Field.AsString);
　　end;　　这个过程的作用是当SpinEdit1给定的条件得以满足时，如′salary′变量低于或等于SpinEdit1.Value时，DBGrid1记录以ColorGrid1的前景颜色来显示，否则以ColorGrid1的背景颜色来显示。然后调用DBGrid的Canvas的填充过程FillRect和文本输出过程重新绘制DBGrid的画面。　　3.为SpinEdit1构件的OnChange事件编写响应代码：　　procedure TForm1.SpinEdit1Change(Sender: TObject);
　　begin
 　　 DBGrid1.refresh;  //刷新是必须的，一定要刷新哦
　　end;　　当SpinEdit1构件的值有所改变时，重新刷新DBGrid1。　　4.为ColorGrid1的OnChange事件编写响应代码：　　procedure TForm1.ColorGrid1Change(Sender: TObject);
　　begin
 　　 DBGrid1.refresh;    //刷新是必须的，一定要刷新哦
　  end;　　当ColorGrid1的值有所改变时，即鼠标的右键或左键单击ColorGrid1重新刷新DBGrid1。　　5.为Form1窗体（主窗体）的OnCreate事件编写响应代码：　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
 　　 ColorGrid1.ForeGroundIndex:=9;
　 　 ColorGrid1.BackGroundIndex:=15;
  　end;　　在主窗创建时，将ColorGrid1的初值设定前景为灰色，背景为白色，也即DBGrid的字体颜色为灰色，背景颜色为白色。　　6.现在，可以对ColorDBGrid程序进行编译和运行了。当用鼠标的左键或右键单击ColorGrid1时，DBGrid的字体和背景颜色将随之变化。

Answer 5

1.用OnCellClik事件,把你要更改的字段的值保存到全局变量(假设tmp)中.
2.在OnDrawColumnCell事件里面写:
if (比较现在的值和tmp的值) then
  begin
    DBGrid1.Canvas.Brush.Color:=clSkyBlue; //蓝色
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end
else
  begin
    DBGrid1.Canvas.Brush.Color:=clRed; //红色
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end

Answer 6

改进一下:
1.用OnCellClik事件,把你要更改的字段的值保存到全局变量(假设tmp)中.
2.在OnDrawColumnCell事件里面写:
if DBGrid1.DataSource.DataSet.Modified then
  DBGrid1.DataSource.DataSet.Post;  
if (比较现在的值和tmp的值) then
  begin
    DBGrid1.Canvas.Brush.Color:=clSkyBlue; //蓝色
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end
else
  begin
    DBGrid1.Canvas.Brush.Color:=clRed; //红色
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end

Answer 7

我来拣分
在事件DBGridEh1DrawColumnCell中for i := 0 to DBGridEh的列数 -1 do begin
          if (值的大小判断) and (Column.FieldName= 某一单元格字段名) then
        DBGridEh1.Canvas.Brush.Color := clRed
      end;
DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
//网上有很多一整行变色的例子，要达到你的要求关键在于后面一个判断