请问如何实现输入提示

Question

    我想实现输入提示:就是用一个文本输入框(例如Text)，当输入部分内容后,下面一个表格(例如DBGrid)内就显示数据库中可能的数据记录。就像百度搜索条内的输入有下拉框提示一样。
    我是一名刚学Delphi的新手,希望各位大虾多多指教：需要什么控件，关键代码有哪些。感激不尽！

Answer 1

在edit的onchange事件中写入下列代码,同时让DBGrid和Adoquery1关联即可
Adoquery1.close;
Adoquery1.SQL.clear;
Adoquery1.Sql.add('select * form table1 where fieldname='+QuotedStr(edit1.text));
Adoquery1.open;

Answer 2

谢谢！请问如何实现点击DBgrid中的记录就能把它复制到Text上?

Answer 3

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  Edit1.Text:=DBGrid1.SelectedField.AsString;
end;

Answer 4

非常感谢!
功能已成功实现!代码如下:
procedure TForm1.Edit1Change(Sender: TObject);
var
  str:string;
begin
  str:='select distinct colname from tablename where colname like'+''''
    +edit1.text+'%'+'''';
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(str);
  query1.Open;
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  Edit1.Text:=DBGrid1.SelectedField.AsString;
end;