Фильтр списка ComboBox при вводе

Posted by obzor under Delphi

Появилась задачка. Имеем ComboBox. В нем достаточно большой список (196 элементов), желание пользователя, чтобы при постановке курсора в поле ввода компонента и начала ввода, он в выпадающем списке оставлял только те данные, которые удовлетворяют вводимому значению (совпадают с начальной частью вводимого слова без учета регистра). Может кто сталкивался с таким. Буду благодарен любой полезной информации.

Serge_Bliznykov

Я в исходниках GExperts for Delphi видел подобное. (см. например, http://www.gexperts.org/tour/procedure_list.html )
Можно оттуда забрать…

kropotkina-alice

По-моему можно сделать очень просто:

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
var tmp: string;
    i: integer;
begin
  tmp:=AnsiUpperCase(ComboBox1.Text)+key;
  for i:=0 to ComboBox1.Items.Count-1 do
  begin
    if PosEx(tmp,AnsiUpperCase(ComboBox1.Items[ i]),1)>0 then
    begin
      ComboBox1.ItemIndex:=i;
    break;
  end;
  end;
end;

У ComboBox1 установите свойство AutoDropDown в True…

тема на форуме

Похожие статьи

• Выбор записей из ListBox в соответствии со значением ComboBox и размещение результата в Memo
• Выбор таблицы в ComboBox
• Подгрузка списка в зависимости от значения CheckBox
• Единый обработчик для нескольких comboBox
• Combobox. Сколько раз было выбрано значение?
• Как получить первую букву из combobox
• Проверить наличие записи в combobox
• Изменить шрифт в RichEdit через ComboBox
• Как перенести данные из TString в TStringList?
• Как добавить значения из ComboBox в определённые поля таблицы excel?