Здравствуйте, уважаемые Мастера

Необходимо реализовать комбобокс с возможностью поиска. То есть вводишь что-то - тот же идёт запрос к БД like %TEXT% - и в списке должны появиться возможные варианты. Причём варианты можно выбрать стрелочками, нажав Enter

У кого какие предложения ?

а что не получается? комбобокс не подходит?

не подходит
попробуйте реализовать подобие выбора в гугле стандартным комбобоксом

что не получается? чем не подходит?

TEdit + Button + ListBox

> DimaBr ©   (31.01.12 00:25) [4]

я нашёл уже способ
спасибо

Happy Birthday ;)

аля так делал как-то

procedure TfrmSubscriber.cbbSearchDropDown(Sender: TObject);
var
 oqTmp: tORAQuery;
 like: string;
 OB: TOB;
 i: integer;
begin
  for i := 0 to cbbSearch.Items.Count -1 do cbbSearch.Items.Objects[i].Free;
  cbbSearch.Items.Clear;
  if length(cbbSearch.Text) < 2 then exit;

   like := QuotedStr('%' + cbbSearch.Text + '%');
   OpenQC(oqTmp,'select  from where XXX like ' + like);
   if not(oqTmp.IsEmpty) then
   begin
     while not(oqTmp.Eof) do
     begin
       OB:= TOB.Create;
       OB.Name := oqTmp.fieldbyname('NAME_SUBSCR').AsString;
       OB.ID := oqTmp.fieldbyname('UUID').AsInteger;
       OB.RID := oqTmp.fieldbyname('ID_SUBSCRIBER').AsInteger;
       cbbSearch.Items.AddObject(oqTmp.fieldbyname('NAME_SUBSCR').AsString, OB);
       oqTmp.Next;
     end;
   end;
   FreeAndNil(oqTmp);

> DevilDevil ©   (31.01.12 09:44) [5]


Спасибо !