Delphi中如何使用TEdit控件和TListBox控件组合使用达到TComboBox控件一样的效果呢？

如何用TEdit控件+TListBox控件实现和TComboBox控件一样的效果呢？
首先：
向界面拖一个TEdit控件和TListBox控件，将TListBox控件放到TEdit控件正下方。
取名分别为：edt1和lstbox。

其次：
给TEdit控件添加一个OnClick事件或者OnKeyDown事件，例如：OnClick事件。

procedure Tfmainform.edt1Click(Sender: TObject);
begin
  lstbox.Show;
  lstbox.SetFocus;
  lstbox.ItemIndex := 0;
end;

或者：添加键盘上个的KeyDown事件(记键盘上的PgDn键子)

procedure Tfmainform.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = vk_next then
  begin
    lstbox.Show;
    lstbox.SetFocus;
    lstbox.ItemIndex := 0;
  end;
end;

最后：
给TListBox控件添加一个双击事件，例如：OnDbClick事件。

procedure Tfmainform.ListBoxDblClick(Sender: TObject);
begin
  edt1.Text := lstbox.Items[lstbox.itemIndex];
  lstbox.Hide;
end;

这样我们就实现了一个和TComboBox控件一样的效果了。