Dummy Drop Down

Dummy drop down adalah sebuah trik untuk seolah-olah membuat drop down, dimana kita mempunyai sebuah edit dan saat kita mengetikan kata tertentu maka akan muncul dibawahnya data yang akan kita cari semacam sugestion seperti di search google.

komponen yang dibutuhkan
edit,
dbgrid untuk tampil sugestion pencarian
dan komponen untuk koneksi ke database.

ok sample  kodenya:

procedure TFmengajar.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
kodeds:=edit1.text;
//jika edit kosong dbgrid jangan di tampilkan
if (edit1.Text='') then
begin
gridkdds.Visible:=false;
exit;
end
else
with query1 do
begin
close;
sql.Clear;
sql.add('select kd_kary,nm_kary from t_karyawan where kd_kary like:kodeds order by kd_kary asc');
query1.ParamByName('kodeds').Value:=kodeds+'%';
query1.Open;
end;

if (key=vk_return) then
begin
edit1.Text:=query1.FieldByName('kd_kary').AsString;
ednama.Text:=query1.FieldByName('nm_kary').AsString;
//sembunyikan dbgrid setelah di tekan tombol enter
gridkdds.Visible:=false;
end
else
//tampilkan dbgrid tepat di bawah edit
begin
gridkdds.Left:=edit1.Left;
gridkdds.Top:=edit1.Top+edit1.Height;
gridkdds.Visible:=true;

end;
end;