listbox是否可编辑？（100分求助）

Question

要实现这样一功能：在文本框中输入内容，根据内容从数据库中读取相似内容显示出来供选择。
listbox能否单独实现，或者给出个思路，谢谢

Answer 1

可以的
自己Add内容进去啦http://lysoft.7u7.net

Answer 2

我希望通过一个控件来实现，不想两个结合着来实现，单独listbox可以实现吗？listbox可以在里面输入内容吗？

Answer 3

用COMBOBOX+LISTBOX然后控制VISIBLE

Answer 4

procedure TForm1.Edit1Change(Sender: TObject);
begin
If Trim(Edit1.Text)<>'' then begin
with Query1 do begin
Close;
SQL.Clear;
SQL.Text:='Select FieldName from Table where FieldName like :Q';
Parameters.ParamByName('Q').Value:=Trim(Edit1.Text);
Open;
First;
end;
ListBox.Items.Clear;
while not Query1.Eof do begin
ListBox1.Items.Add(Trim(ADOQuery1.FieldByName('FieldByName').AsString));
Query.Next;
end;
end;
end;

Answer 5

何苦呢，要不你设定一个单击事件，单击ListBox中的一项，显示一个输入框，然后在哈哈！

Answer 6

COMBOBOX好像可以实现，怎么样让combobox的菜单一开始就打开？？？？？？？？？？？

Answer 7

知道你是什么意思了,你想做一个与IE一样的,可以记录历史输入的框对不对? 如果是这样,我认为太简单了,不要把注意力放在ListBox的作用上,自己写代码,也就几个if + 个数据库连接.

Answer 8

ListBox不可能直接实现你要的功能的，自己写代码吧，不难的

Answer 9

第一个问题‘撒哈拉之雨的伤悲'的实现很好。
SINPY问：COMBOBOX好像可以实现，怎么样让combobox的菜单一开始就打开？？？？？？？？？？？现给出源代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure dropcombobox;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}var aa:boolean;procedure TForm1.dropcombobox;
var handle:thandle;
begin
  handle:=combobox1.Handle ;
 if aa then
 begin
  sendmessage(handle,CB_SHOWDROPDOWN, Longint(true), 0);
  aa:=false;
  combobox1.Refresh
 end;end;procedure TForm1.FormPaint(Sender: TObject);
begin
  dropcombobox;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  aa:=true;
end;end.

Answer 10

发觉sendmessage真的很好用，就是里面传递的消息经常搞不清楚，不知道哪位有关于这些消息的详细介绍没有？