[Cafabuiter]

Здравствуйте!
Есть такой компонент, как ComboBox.
Если его свойство AutoComplete = true, то он "подбирает" из списка его строк те, которые НАЧИНАЮТСЯ с текста, вводимого пользователем в поле редактирования.
Нельзя ли сделать, чтобы компонент подбирал строки, которые СОДЕРЖАТ (необязательно - в начале) текст, вводимый пользователем?

[Kailon]

Можно сделать всё

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

var   SList: TStringList; ... function CBFilter(AText: String): TStringList; var   I: LongInt;   SL: TStringList; begin   SL := TStringList.Create;   for I := 0 to SList.Count - 1 do     if Pos(AnsiUpperCase(AText), AnsiUpperCase(SList[i])) > 0 then       SL.Add(SList[i]);   Result := SL; end;   procedure TForm1.Edit1Change(Sender: TObject); begin   if Edit1.Text <> '' then     ComboBox1.Items := CBFilter(Edit1.Text)   else     ComboBox1.Items := SList; end;   procedure TForm1.FormCreate(Sender: TObject); var   I: LongInt; begin   SList := TStringList.Create;   for I := 0 to ComboBox1.Items.Count - 1 do     SList.Add(ComboBox1.Items[i]); end;

[Cafabuiter]

Сообщение от Kailon

Можно сделать всё

Код:

Спасибо за ответ!
Но, судя по Вашему коду, это решение использует два экранных элемента: TEdit и TComboBox. То есть, ComboBox фильтруется используя строку,вводимую в Edit. Я же хотел обойтись одним ComboBox.

[lmikle]

Делал подобнцую штуку. Только так именно был поиск с начала строки, т.к. по результатам поиска в поле редактирования ComboBox вписвывася текст найденной строки и делалось выделение (select) текста после найденного отрезка. Как результат, при наборе с клавиатуры следующего символа происходила замена "хвоста" на введенный символ и поиск повторялся.
В твоем случае не понятно что выделять. Тут действительно можно только отфильтровать выпадающий список.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

uses System.StrUtils;   procedure TForm1.InitCbDropList; begin   ComboBox1.Items.Clear;   ComboBox1.Items.Add('Item1'); ...   ComboBox1.Items.Add('ItemN'); end;   procedure TForm1.ComboBox1Change(Sender : TObject); var   I : Integer;   SL : TStringList; begin   If ComboBox1.Text = ''     Then InitCbDropList     Else       Begin         SL := TStringList.Create;        Try          For I := 0 To ComboBox1.ITems.Count-1 Do            If ContainsText(ComboBox1.ITems[i],ComboBox1.Text) Then              SL.Add(ComboBox1.ITems[i]);         ComboBox1.Items.Assign(SL);        Finally          SL.Free;        End;       End; end;   procedure TForm1.FormCreate(Sender: TObject); begin   InitCbDropList; end;

Вот как то так...

[Kailon]

Сообщение от Cafabuiter

...ComboBox фильтруется используя строку,вводимую в Edit...

Да, совершенно верно. Можно, конечно, переделать и на ввод текста в ComboBox

Код:

1 2 3 4 5 6 7

procedure TForm1.ComboBox1Change(Sender: TObject); begin   if ComboBox1.Text <> '' then     ComboBox1.Items := CBFilter(ComboBox1.Text)   else     ComboBox1.Items := SList; end;

Но тогда возникают интересные ситуации:

1. По мере ввода, курсор остаётся в начале строки и как следствие вводимый текст получается перевёрнутым.
2. При выборе любого элементы выпадающего списка, поле ввода становится пустым, а сам список очищается.
3. Свойство AutoComplete, скорее всего, придётся отключить.

Если решить эти проблемы, то всё будет работать как Вам надо.

[Cafabuiter]

Ну да, обо всё это я уже споткнулся.
Теперь пытаюсь делать некий эрзац-комбобокс: новый компонент, состоящий из TEdit и TList (возможно, вместо TList - TMemo), всё это - на TPanel.
Будет некий исходный набор строк TStringList, из которого, по мере ввода текста в TEdit, при помощи Pos() будут подбираться и вноситься в TList подходящие строки. Собранная на скорую руку пара из TEdit и TList работает нужным мне образом. Теперь нужно наладить их правильное взаимодействие. Для этого и делаю компонент.
Если получится что дельное - отпишусь.