类似百度谷歌搜索的下拉列表DLL

使用说明： 1 DLL提供对外的接口为procedure ShowDataListview(AOwner :TWincontrol; AEdit :TEdit; AConnecttion :TADOConnection; AArray :TSelectArray; AChangeEvent :TChangeEvent=nil); 参数说明：【所有者】【欲显示下拉列表的TEdit】【数据库连接】【传递表结构的数组】【事件】 2 在使用单元引入接口，如下 procedure ShowDataListview1(AOwner :TWincontrol; AEdit :TEdit; AConnecttion :TADOConnection; AArray :TSelectArray; AChangeEvent :TChangeEvent=nil);stdcall; external 'DataListView_dll.dll'; 3 定义一个数组传递查询表相关的参数，如下 const const_Array :TSelectArray=('bas_car', 'carname', 'carid', 'carname', 'carname'); 四个值对应是【表名】【显示名称的字段】【显示名称对应ID的字段】【查询条件的字段】【排序的字段】 4定义一个事件，用于返回后处理一些其它事情： procedure ResultEvent(ASelectType, AResultID :string); 实现 procedure TfrmAllCheck.ResultEvent(ASelectType, AResultID :string); begin Panel6.Caption := '你选择的数据对应ID:' + AResultID; end; 5使用接口，在欲显示下拉列表的TEdit的OnEnter事件中调用： procedure TfrmAllCheck.Edit5Enter(Sender: TObject); begin ShowDataListview(self, Edit5, ADOConnection1, const_Array, ResultEvent); end;