人們在利用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;
