在Delphi語言數據庫編程中，DBGrid是顯示數據的常用控件之一，下面來介紹一些DBGrid的用法。

1. 獲取DBGrid選中單元格的一些信息

procedure TForm2.DBGrid1CellClick(Column: TColumn); varstrValue:string;iCol,iRow:Integer;rRect:TRect; beginstrValue := DBGrid1.SelectedField.Value; //獲取選中單元格的值iCol := TDrawGrid(DBGrid1).Col; //獲取選擇單元格的列，第一列為1iRow := TDrawGrid(DBGrid1).Row; //獲取選擇單元格的行，第一行為1rRect := 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); vari:Integer; beginif bDrawTitle=False then //一般情況畫一次就夠了，不必重復畫beginfor i:=0 to DBGrid1.Columns.Count-1 do //一下子繪制所有的列beginif i mod 2 = 0 thenbeginDBGrid1.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 thenbegin(Sender as TDBGrid).Canvas.Brush.Color := clGray;end;(Sender as TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State); end;

3. 設置Grid單元格邊框

procedure TForm2.DBGrid1CellClick(Column: TColumn); variCol,iRow:Integer;rRect:TRect; beginiCol := TDrawGrid(DBGrid1).Col; //獲取選擇單元格的列，第一列為1iRow := TDrawGrid(DBGrid1).Row; //獲取選擇單元格的行，第一行為1rRect := TDrawGrid(DBGrid1).CellRect(iCol,iRow); //獲取選擇單元格的矩形框with DBGrid1.Canvas dobeginPen.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;

轉載于:https://www.cnblogs.com/liuke1987/archive/2013/02/06/2907892.html

總結

以上是生活随笔為你收集整理的DBGrid应用的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。