在Delphi语言数据库编程中，DBGrid是显示数据的常用控件之一，下面来介绍一些DBGrid的用法。

1. 获取DBGrid选中单元格的一些信息

procedure TForm2.DBGrid1CellClick(Column: TColumn);var    strValue:string;    iCol,iRow:Integer;    rRect:TRect;begin    strValue := DBGrid1.SelectedField.Value;        //获取选中单元格的值    iCol := TDrawGrid(DBGrid1).Col;                 //获取选择单元格的列，第一列为1    iRow := TDrawGrid(DBGrid1).Row;                 //获取选择单元格的行，第一行为1    rRect := TDrawGrid(DBGrid1).CellRect(iCol,iRow); //获取选择单元格的矩形框    //ShowMessage('行：'+IntToStr(iRow)+#13'列：'+IntToStr(iCol)+#13'值：'+strValue);end;

2. 设置列名格式，一般列名只需设置一次（这里一次性绘制所有的列，以避免列数过多时，显示滚动条后的列时再绘制时影响一些正常的操作，譬如按键盘方向键定位单元格时可能会光标移到第一行），即可用全局变量进行记录下。

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TGridDrawState);var    i:Integer;begin    if bDrawTitle=False then    //一般情况画一次就够了，不必重复画    begin        for i:=0 to DBGrid1.Columns.Count-1 do  //一下子绘制所有的列        begin            if i mod 2 = 0 then            begin                DBGrid1.Columns[i].Title.Font.Color := clRed;   //列名 字体颜色                DBGrid1.Columns[i].Title.Color := clGreen;      //列名 背景                DBGrid1.Columns[i].Color := clBlue;             //列数据 背景            end;        end;        bDrawTitle := True;    end;    //将数据背景斑马线显示    if CDS1.RecNo mod 2 = 0 then    begin        (Sender as TDBGrid).Canvas.Brush.Color := clGray;    end;    (Sender as TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State);end;

3. 设置Grid单元格边框

procedure TForm2.DBGrid1CellClick(Column: TColumn);var    iCol,iRow:Integer;    rRect:TRect;begin    iCol := TDrawGrid(DBGrid1).Col;                 //获取选择单元格的列，第一列为1    iRow := TDrawGrid(DBGrid1).Row;                 //获取选择单元格的行，第一行为1    rRect := TDrawGrid(DBGrid1).CellRect(iCol,iRow); //获取选择单元格的矩形框    with DBGrid1.Canvas do    begin        Pen.Width := 4;         //设置画笔 宽带        Pen.Color := clRed;     //设置画笔 颜色        MoveTo(rRect.Left,rRect.Top);   //设置画笔 起点        LineTo(rRect.Right,rRect.Top);  //画线        Pen.Width := 2;        Pen.Color := clYellow;        MoveTo(rRect.Right,rRect.Top);        LineTo(rRect.Right,rRect.Bottom);    end;end;