demo2.pas

《Delphi百例》源码?禗elphi百例》源码

unit demo2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
field : TField;
//定义一个字段型变量
dataset : TDataSet;
//定义一个DataSet
important : string;
//定义一个字符串型变量

begin
 dataset := DBGrid1.DataSource.DataSet ;
  //获得DBGrid控件的父类的DataSet属性
field := dataset.FieldByName('content_id');
  //获取相应的字段
important := field.asString;
  //获得相应字段的字符串型的数据值
if important='A' then DBGrid1.canvas.font.color := clRed;
  if important='C' then DBGrid1.canvas.font.color := clBlue;
  //判断值的内容,进而根据相应相应的条件设置该行的颜色
DBGrid1.DefaultDrawColumnCell(rect,DataCol,column,state);
  //使颜色的改变生效

end;

end.