sample3.~pas

来自「一系列DELPHI的控件如何使用的例子,例子有的比较简单,但是能详细的说明了控件」· ~PAS 代码 · 共 46 行

unit sample3;

interface

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

type
  TForm1 = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    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);
begin
   if (datacol mod 2 =0) then //设置奇数和偶数列的背景颜色
       DBGrid1.Canvas.Brush.Color:=clskyblue    //设为天蓝色
   else
       DBGrid1.Canvas.Brush.Color:=clmoneygreen; //设为钱币绿
   if  (gdSelected in state) then //检测单元格是否作用
       DBGrid1.Canvas.Brush.Color:=clred; //如果是,背景色为红
   DBGrid1.Canvas.FillRect(rect);
   DBGrid1.DefaultDrawcolumncell(rect,datacol,column,state);



end;

end.