重金求购：我想获得这样的控件！控件一经试用合适，马上送分！(200分)

重金求购：我想获得这样的控件！
该控件能够实现象IE地址栏那样的智能跟随输入。我想把它用来进行方便的数据录入。
请大虾帮忙！我需要控件的源程序（用来学习，请大虾指点思路！）！谢谢！
控件一经试用合适，马上送分！

急用！谢谢！

该控件还要跟数据库相联。

我有，但是没有和数据库关联
有源码，不过你的分太少了

需要和数据库关联。
譬如：我想进行“保险公司”的管理，我使用dbedit之类的控件来进行各项数据录入，其中
有一项为“国家”，我有一张“国家一览表”，我想让用户可输可选，当他输入第一个字母
时，下拉列表中显示匹配的所有国家；当他再继续输入第二个字母时，列表中显示的国家
相应变化（即再次过滤）。。。当然也可以做成象拼音输入时的浮动列表。我学艺不精，请
大家帮忙，指教！

我的E_mailuremoonstone@163.net!
to kingpc:您是怎样做的？

你上delphi深度历险看看。

用Rxlib275 的rxlookupEdit, 它是与数据库关联的,可下拉可清空;
代码可以自己做,很简单的,
在onchange 或者 oncloseUp事件修改SQL语句或者用Filter不就得了,
最好是另外开一个edit来作作这件事! 当然也可以直接如你所说在rxlookupedit
的事件上直接写
给你看点代码吧:

procedure TFrmTableIntoLib.rxlookupEdit3Change(Sender: TObject);
begin
if rxlookupEdit3.text <>'' then
begin
DataModuleNew.QueryProviderCode.Close;
DataModuleNew.QueryProviderCode.SQL.clear;
DataModuleNew.QueryProviderCode.SQL.Text :='Select * From 供应商编码表 WHERE 供应商名称 LIKE ''%'+trim(rxlookupEdit3.Text)+'%'' order by 供应商名称';
DataModuleNew.QueryProviderCode.Open;
RxLkEditClient.LookupSource.DataSet.Close;
RxLkEditClient.LookupSource.DataSet.Open;
end
else
begin
DataModuleNew.QueryProviderCode.Close;
DataModuleNew.QueryProviderCode.SQL.clear;
DataModuleNew.QueryProviderCode.SQL.Text :='Select * From 供应商编码表 order by 供应商名称 ';
DataModuleNew.QueryProviderCode.Open;
RxLkEditClient.LookupSource.DataSet.Close;
RxLkEditClient.LookupSource.DataSet.Open;
end

end;

这么简单的问题还要控件？
实现思路：
在输入框中输入东西后会产生change事件，在change事件中进行模糊查询，查到的结果添加
到列表框中，因为查找的是国家而已，数据量不大，实现起来不需要注意太多问题的。

to lww:

错！这种方法肯定不行！不信你自己试试！！

to gunwithlove:

哈哈，Delphi 6 有 AutoComplete 功能了！

多人接受答案了。