下面介绍如何将下拉选择列表放置到DBGrid中。使用DBGrid列的PickList属性，为编辑DBGrid中的查找字段创建视觉上更具吸引力的用户界面。

现在，您已经知道什么是查找字段，以及在Delphi的DBGrid中显示查找字段的选项是什么，现在是时候了解如何使用DGBrid列的PickList属性，使用户能够从下拉列表框中为查找字段选择值了。

关于dbgrid columns属性的快速信息

DBGrid控件具有Columns属性—表示网格控件中所有列的TColumn对象的集合。可以在设计时通过列编辑器设置列，也可以在运行时以编程方式设置列。当您想要定义列的显示方式、列中数据的显示方式以及在运行时访问TDBGridColumns的属性、事件和方法时，通常会向DBGird添加列。自定义网格使您能够配置多个列以显示同一数据集的不同视图（例如，不同的列顺序、不同的字段选择以及不同的列颜色和字体）。

现在，网格中的每一列都“链接”到网格中显示的数据集中的字段。此外，每列都有一个PickList属性。PickList属性列出用户可以为列的链接字段值选择的值。

填写挑选名单

您将在这里学到的是如何在运行时用另一个数据集的值填充该字符串列表。回想一下，我们正在编辑Articles表，并且Subject字段只能接受Subjects表中的值：PickList的理想情况！

下面介绍如何设置PickList属性。首先，我们在表单的OnCreate事件处理程序中添加对SetupGridPickList过程的调用。

procedure TForm1.FormCreate(Sender: TObject);begin SetupGridPickList('Subject', 'SELECT Name FROM Subjects');end;

创建SetupGridPickList过程的最简单方法是转到表单声明的私有部分，在那里添加声明，然后点击CTRL+SHIFT+C组合键-Delphi的代码完成将完成其余操作：

...type TForm1 = class(TForm)... privateprocedure SetupGridPickList( const FieldName : string; const sql : string); public...

注意：SetupGridPickList过程采用两个参数。第一个参数，FieldName，是我们想要充当查找字段的字段的名称；第二个参数SQL是我们用来用可能的值填充选取列表的SQL表达式——通常，SQL表达式应该返回一个只有一个字段的数据集。

下面是SetupGridPickList的外观：

procedure TForm1.SetupGridPickList(const FieldName, sql: string);var slPickList:TStringList; Query : TADOQuery; i : integer;begin slPickList:=TStringList.Create; Query := TADOQuery.Create(self); try Query.Connection := ADOConnection1; Query.SQL.Text := sql; Query.Open; //Fill the string listwhile not Query.EOF dobegin slPickList.Add(Query.Fields[0].AsString); Query.Next; end; //while //place the list it the correct columnfor i:=0 to DBGrid1.Columns.Count-1 do if DBGrid1.Columns[i].FieldName = FieldName thenbegin DBGrid1.Columns[i].PickList:=slPickList; Break; end; finally slPickList.Free; Query.Free; end; end; (*SetupGridPickList*)

就这样。现在，当您单击“主题”列时（进入编辑模式）。

注1：默认情况下，下拉列表显示7个值。您可以通过设置DropDownRows属性来更改此列表的长度。

注意2：没有任何东西可以阻止您从不是来自数据库表的值列表中填充选取列表。例如，如果有一个字段只接受工作日名称（“星期一”、“星期日”），则可以构建一个“硬编码”的选择列表。

“嗯，我需要点击选择列表4次…”

请注意，如果要编辑显示下拉列表的字段，则需要单击单元格4次，以便从列表中实际拾取值。添加到DBGrid的OnCellClick事件处理程序中的下一个代码片段模拟了按F2键，然后按Alt+向下箭头键。

procedure TForm1.DBGrid1CellClick(Column: TColumn);begin//Making the drop-down pick list appear fasterif Column.PickList.Count > 0 thenbegin keybd_event(VK_F2,0,0,0); keybd_event(VK_F2,0,KEYEVENTF_KEYUP,0); keybd_event(VK_MENU,0,0,0); keybd_event(VK_DOWN,0,0,0); keybd_event(VK_DOWN,0,KEYEVENTF_KEYUP,0); keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0); end;end;