各位朋友:
    我有一个关于TCombobox控件输入数据处理问题请教大家。
   1:在TCombobox中输入数据“12”后,其Items列表中查询列出数据库表“db_aa”一字段值前2位包含“12”的数值。
   2:当单击TCombobox框右边小三角显示Items列表数据时,TCombobox的 Text 属性则默认Items的第一个值。我想实现,不让它默认值,因我想继续输入数据,使其查询“db_aa”一字段值范围缩小。   请大家帮帮忙,特此感谢!!!

解决方案 »

  1.   

    1:ComboBox.AutoComplete:=True;
    2.ComboBox.ItemIndex:=-1;
      

  2.   

    procedure TForm1.ComboBox1Change(Sender: TObject);
    begin
      with query1 do
      begin
        close;
        sql.Clear;
        sql.Add('select * from db_aa where field='+combobox1.Text+'');
        open;
        while not eof do
        begin
          with combobox1 do
          begin
            clear;
            items.Add(fieldbyname('field').value);
          end;
          next;
        end;
      end;
      close;
    end;procedure TForm1.ComboBox1DropDown(Sender: TObject);
    begin
      ComboBox1.ItemIndex:=-1;
    end;