人們在利用Delphi開發數據庫應用程序時，經常使用表格控件制作報表。靈活地使用表格控件的OnDrawCell事件，可以完成一些特殊效果的顯示，能更好地滿足用戶需求。本文介紹靈活使用OnDrawCell事件的三個技巧。

動態更新表格行的顏色

有時需要在報表中動態更新表格行的顏色。例如，在供應商列表中，優先供貨的供應商用綠色顯示，其他的供應商用紅色顯示。此時可以在OnDrawCell事件中用如下代碼實現：

if Table1.FieldByName(‘CustNo’).AsInteger > 1500 then

DBGrid1.Canvas.Font.Color := clRed;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol,

Column, State)

上述的代碼可以根據應用的需要進行擴充。例如需要用黑體顯示時，只要將對應行改為：

DBGrid1.Canvas.Font.Style := [fsBold];

在表格中插入其他可視控件

在數據庫編程中，外鍵約束是保證數據庫中的數據按用戶要求存放的有效方法。例如，在一個訂單處理環境中，訂單表和客戶表之間就存在外鍵約束，即訂單表中的每條記錄在客戶表中應該有對應項。這樣，在填寫訂單表時，如果在輸入焦點提供客戶列表供用戶選擇，將有效地保證數據的正確性。

DBGrid控件和StringGrid控件都派生于TcustomGrid，其中DBGrid控件可以輸入數據。Delphi對DBGrid處理的內部機制是在網格上浮動一個DBEdit控件。能夠獲得焦點、輸入數據的網格其實是浮動的DBEdit控件，當焦點轉移時把編輯框中的文字顯示到表格，其他未獲得焦點地方和StingGrid并沒有區別，這樣就達到了在表格上輸入數據的目的。所以，在表格中插入其他可視控件的方法就是在網格上浮動該可視控件。因此從原理上講，任何控件都可以在表格中插入。本文以在表格中插入下拉框為例，介紹在網格上插入其他控件的具體步驟。

1．設置屬性

讀入客戶列表到下拉框的Items屬性。

2．設置OnDrawCell事件

OnDrawCell事件在繪制表格的單元格時被觸發。當獲得焦點的單元格所對應的字段與下拉框所對應的字段一致時，移動下拉框到獲得焦點的網格上，并且使下拉框可見，從而達到在表格指定列上顯示下拉框的功能。設置表格的OnDrawCell事件如下：

if (gdFocused in State) then

begin

//對應字段一致則執行

if (Grid.Cells[ACol,0]=‘Company’) then

begin

//移動下拉框到指定位置

ComboBox1.Left := Rect.Left ＋ Grid.Left;

ComboBox1.Top := Rect.Top ＋ Grid.top;

ComboBox1.Width :=Rect.Right－Rect.Left;

ComboBox1.Height:=Rect.Bottom－Rect.Top;

// 使下拉框可見并獲得焦點

ComboBox1.Visible := True;

ComboBox1.SetFocus;

end;

end;

3．設置OnClick事件

如果獲得焦點的單元格所對應的字段與下拉框所對應的字段不一致，下拉框不可見。為此，設置表格的OnClick事件如下：

If (Grid.Cells[Grid.Col,0]<>‘Company’) then

begin

ComboBox1.Visible := false;

end;

4．設置OnChange事件

在OnDrawCell事件中只完成了繪制單元格和顯示下拉框的工作，并不能將數據輸入到表格。為此，設置下拉框的OnChange事件如下：

Grid.Cells[Grid.Col,Grid.Row]:=ComboBox1.

Items[ComboBox1.ItemIndex];

這樣就完成了在表格中插入下拉框的工作。

在表格中顯示圖形字段

在程序開發中，有時需要在報表中顯示一些非常規字符。例如在零件檢驗報表中的檢測項目字段就包含了零件加工粗糙度、加工公差等非常規字符。解決該問題的一般思路是把這些非常規字符作為圖形字段存儲，例如SQL Server 數據庫中的Image字段。但是無論是StringGrid控件還是DBGrid控件，都只能直接顯示字符串，這樣就產生了如何在表格控件上顯示圖形字段的問題。

乍一看，該問題可以利用上述辦法在表格中插入DBImage控件解決。但是這樣需要插入與記錄同等個數的控件，更麻煩的是由于OnDrawCell事件觸發非常頻繁，這樣插入的DBImage控件會不停地試圖與數據庫連接，不僅增加了網絡通信量，而且圖形字段明顯有閃爍感，影響程序的正常運行。更好的解決辦法是在連接數據庫時動態地創建DBImage控件，利用該控件讀取數據庫的Image字段，并作為臨時文件保存到客戶機硬盤。在表格的OnDrawCell事件中讀取該臨時文件，完成繪制工作，該臨時文件在客戶退出時被刪除。以下是在表格中顯示圖形字段的具體步驟。

1．保存Image字段

在執行查詢時讀取所有Image字段，并保存到客戶機硬盤。

Begin

......// 略去查詢語句

FileName:=‘d: emp’; //初始化臨時文件路徑

MyDBImage：=TDBImage.Create(Self);//創建DBImage

MyDBImage.Parent:=self;

MyDBImage.DataSource:=DataSource1;

MyDBImage .DataField：=‘描述’;//指定為“描述”字段

Index:=1;

while not ClientData.Eof do begin //讀數據庫

s:=IntToStr(Index);

FileName1:=FileName＋s;

FileName1:=FileName1＋‘.bmp’;

//保存臨時文件

MyDBImage .Picture .Bitmap .SaveToFile(FileName1) ; Grid .Cells[0,Index]:=ClientData.FieldByName(‘零件編號’).AsString；

Grid.Cells[1,Index]:=‘’;

//填寫表格

Grid.Cells[2,Index]:=ClientData.FieldByName(‘實測數據’).AsString;

ClientData.Next;

Index:=Index＋1;

end;

MyDBImage.Destroy(); //釋放DBImage

end;

2．拷貝圖形

設置OnDrawCell事件，讀取臨時文件，并將圖形拷貝到表格的指定列：

if ((ACol=1)and(ARow>0) and (Grid.ColCount>2)) then begin

//表格至少需要兩列

FileName:=‘D: emp’;

S:=IntToStr(ARow);

FileName:=FileName＋S;

FileName:=FileName＋‘.bmp’;

MyImage:=TImage.Create(Self);//創建Image控件

MyImage.Parent:= self;

//讀臨時文件

MyImage.Picture.Bitmap.LoadFromFile(FileName);

//拷貝圖形

Grid.Canvas.Draw(Rect.Left,Rect.Top,MyImage.

Picture.Graphic);

MyImage.Destroy(); //釋放Image控件

end;