sample3.pas

一系列DELPHI的控件如何使用的例子,例子有的比较简单,但是能详细的说明了控件的使用,对许多刚涉足DELPHI的朋友会很有帮助的

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; //如果是,背景色为红
   if query1.FieldByName('empno').AsInteger =110 then
       DBGrid1.Canvas.Brush.Color:=clred;
   DBGrid1.Canvas.FillRect(rect);
   DBGrid1.DefaultDrawcolumncell(rect,datacol,column,state);



end;

end.