在Delphi的DBGrid中插入其他可視組件

Delphi提供了功能強大的DBGrid組件，以方便進行數據庫應用程序設計。但是如果我們僅僅利用DBGrid組件，每一個獲得焦點（Grid）只是一個簡單的文本編輯框，不方便用戶輸入數據。Delphi也提供了一些其他數據組件來方便用戶輸入，比如DBComboBox，DBCheckBox等組件，但這些組件卻沒有DBGrid功能強大。Delphi能不能象Visual Foxpro那樣讓DBGrid中獲得焦點網格可以是其它可視數據組件以方便用戶呢？其實我們可以通過在DBGrid中插入其他可視組件來實現這一點。

Delphi對DBGrid處理的內部機制，就是在網格上浮動一個組件——DBEdit組件。你輸入數據的網格其實是浮動DBEdit組件，其他未獲得焦點地方不過是圖像罷了。所以，在DBGrid中插入其他可視組件就是在網格上浮動一個可視組件。因此任何組件，包括從簡單的DbCheckBox到復雜的對話框，都可以在DBGrid中插入。下面就是一個如何在DBGrid中插入DBComboBox組件的步驟，采用同樣的辦法可以插入其他組件。

1、在Delphi 4.0中新建一個項目。

2、分別拖動的Data Access組件板上DataSource、Table，Data Controls組件板上DBGrid，DBComboBox四個組件到Form1上。

3、設置各個組件的屬性如下：

rcf1對象 屬性 設定植 Form1 Caption 在DBGrid中插入SpinEdit組件示例 DataSource1 DataSet Table1 Table1 DatabaseName DBDEMOS 　 TableName teacher.DBF 　 Active True DBGrid1 DataSource DataSource1 DBComboBox1 DataField SEX 　 DataSource DataSource1 　 Visible False 　 Strings Items. 男| 女

注意：我在這裡用了Teacher.dbf，那是反映教職工的性別，只能是“男”或者是“女”。

4、DrawDataCell事件是繪制單元格，當獲得焦點網格所對應的字段與組合框所對應的字段一致時，移動組合框到獲得焦點的網格上，並且

使組合框可視，從而達到在DBGrid指定列上顯示DBComboBox的功能。設置DBGrid1的OnDrawDataCell事件如下：

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if (gdFocused in State) then
begin
if (Field.FieldName = DBComboBox1.DataField ) then
begin
DBComboBox1.Left := Rect.Left + DBGrid1.Left;
DBComboBox1.Top := Rect.Top + DBGrid1.top;
DBComboBox1.Width := Rect.Right - Rect.Left;
DBComboBox1.Height := Rect.Bottom - Rect.Top;
DBComboBox1.Visible := True;
end;
end;
end;

5、DBGrid指定單元格未獲得焦點時不顯示DBComboBox，設置DBGrid1的OnColExit事件如下：

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
begin
DBComboBox1.Visible := false;
end;
end;

6、當DBGrid指定列獲得焦點時DrawDataCell事件只是繪制單元格，並顯示DBComboBox，但是DBComboBox並沒有獲得焦點，數據的輸入還是在單元格上進行。在DBGrid1的KeyPress事件中調用SendMessage這個 Windows API函數將數據輸入傳輸到DBComboBox上，從而達到在DBComboBox上進行數據輸入。因此還要設置KeyPress事件如下：

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if (key $#@60; $#@62; chr(9)) then
begin
if (DBGrid1.SelectedField.FieldName =DBComboBox1.DataField) then
begin
DBComboBox1.SetFocus;
SendMessage(DBComboBox1.Handle, WM_Char, word(Key), 0);
end;
end;
end;

程序在中文Windows 98，Delphi 4.015 下調試通過。希望本文能使你可以更加方便快捷的開發數據庫應用程序。