sample41.~pas

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

unit sample41;

interface

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

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

var
  Form1: TForm1;

implementation

uses SAMPLE4;

{$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if (datacol mod 3 =0) then //设置奇数和偶数列的背景颜色
       DBGrid1.Canvas.Brush.Color:=clskyblue;//设为天蓝色
   if (datacol mod 3 =1) then //设置奇数和偶数列的背景颜色
       DBGrid1.Canvas.Brush.Color:=clbtnface;
   if (datacol mod 3 =2) then
       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;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
   form2.show;
end;

end.