想成为有史以来最好的数据编辑网格吗？下面是构建用户界面以编辑DBGrid中的查找字段的说明。具体来说，我们将研究如何将DBLookupComboBox放置到DBGrid的单元格中。

这将调用来自数据源的信息，这些信息将用于填充下拉框。

要在DBGrid的单元格中显示DBLookupComboBox，首先需要在运行时使其可用。。。

使用dblookupcombobox创建查找

选择组件选项板上的“数据控件”页面，然后选择DBLookupComboBox。在表单的任意位置放置一个，并保留默认名称“DBLookupComboBox1”。将其放置在何处并不重要，因为大多数情况下，它将不可见或在网格上浮动。

再添加一个DataSource和DataSet组件，用值“填充”组合框。将TDataSource（名称为DataSource2）和TAdoQuery（名称为AdoQuery1）放在表单的任意位置。

要使DBLookupComboBox正常工作，必须设置多个属性；它们是查找连接的关键：

• 数据源和数据字段确定主连接。数据字段是一个字段，我们将查找到的值插入其中。
• ListSource是查找数据集的源。
• KeyField标识ListSource中必须与DataField字段值匹配的字段。
• ListFields是组合中实际显示的查找数据集的字段。ListField可以显示多个字段，但多个字段应以分号分隔。您必须设置足够大的值，使（组合框的）DropDownWidth能够真正看到多列数据。以下是如何从代码（在表单的OnCreate事件处理程序中）设置所有重要属性：

procedure TForm1.FormCreate(Sender: TObject);beginwith DBLookupComboBox1 dobegin DataSource := DataSource1; // -> AdoTable1 -> DBGrid1 ListSource := DataSource2; DataField := 'AuthorEmail'; // from AdoTable1 - displayed in the DBGrid KeyField := 'Email'; ListFields := 'Name; Email'; Visible := False; end; DataSource2.DataSet := AdoQuery1; AdoQuery1.Connection := AdoConnection1; AdoQuery1.SQL.Text := 'SELECT Name, Email FROM Authors'; AdoQuery1.Open;end;

注意：当您想在DBLookupComboBox中显示多个字段时，如上例所示，必须确保所有列都可见。这是通过设置DropDownWidth属性来完成的。

然而，您会看到，最初，您必须将其设置为一个非常大的值，这会导致删除的列表太宽（在大多数情况下）。一种解决方法是设置下拉列表中显示的特定字段的显示宽度。

此代码位于表单的OnCreate事件中，可确保在下拉列表中同时显示作者姓名及其电子邮件：

AdoQuery1.FieldByName('Email').DisplayWidth:=10;AdoQuery1.FieldByName('Name').DisplayWidth:=10;AdoQuery1.DropDownWidth:=150;

剩下我们要做的就是让一个组合框悬停在单元格上（在编辑模式下），显示AuthorEmail字段。首先，我们需要确保DBLookupComboBox1在显示AuthorEmail字段的单元格上移动并调整大小。

procedure TForm1.DBGrid1DrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);beginif (gdFocused in State) thenbeginif (Column.Field.FieldName = DBLookupComboBox1.DataField) thenwith DBLookupComboBox1 do begin Left := Rect.Left + DBGrid1.Left + 2; Top := Rect.Top + DBGrid1.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; end; endend;

接下来，当我们离开单元格时，我们必须隐藏组合框：

procedure TForm1.DBGrid1ColExit(Sender: TObject);beginif DBGrid1.SelectedField.FieldName = DBLookupComboBox1.DataField then DBLookupComboBox1.Visible := Falseend;

请注意，在编辑模式下，所有击键都将进入DBGrid的单元格，但我们必须确保它们被发送到DBLookupComboBox。对于DBLookupComboBox，我们主要感兴趣的是[Tab]键；它应该将输入焦点移动到下一个单元格。

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);beginif (key = Chr(9)) then Exit; if (DBGrid1.SelectedField.FieldName = DBLookupComboBox1.DataField) thenbegin DBLookupComboBox1.SetFocus; SendMessage(DBLookupComboBox1.Handle, WM_Char, word(Key), 0); endend;

当您从DBLookupComboBox中选择一个项目（“行”）时，该值或相应的KeyField字段将存储为DataField字段的值。