Позиционирование в ListBox или любом другом списке.

← →
harismatik (2002-11-25 11:25) [0]

У меня есть на форме компонент TEdit и TListBox с некоторым набором строк. Мне необходимо сделать так, чтоб при вводе определенного текста в TEdit выделялась соответствующая строка в списке (Аналогично как сделано в системе Хелпа на странице Find).

← →
Song (2002-11-25 11:28) [1]

TEdit.onChange
Чего не получается?

← →
harismatik (2002-11-25 11:33) [2]

А если стираю букву? Оно прыгает дальше вниз по списку, а должно бы вверх. Как это сделать?

← →
stone (2002-11-25 11:37) [3]

смотря как ты находишь строку в листбоксе

← →
harismatik (2002-11-25 11:42) [4]

Я использую такой код:
procedure TForm1.Edit1Change(Sender: TObject); var s:string; begin s:=Edit1.Text; with ListBox1 do ItemIndex := Perform(LB_SELECTSTRING, ItemIndex, LongInt(S)); end;
Если есть какие соображения по этому поводу, то прошу выразить, бо задачу решить надо.

← →
stone (2002-11-25 11:51) [5]

попробуй

with ListBox1 do
ItemIndex := IndexOf(s);

но это только по полному значению строки

← →
harismatik (2002-11-25 11:53) [6]

По полному мне не подходит. Мне нужно именно по части сторки, начиная с первой буквы.

← →
Alex Y (2002-11-25 12:14) [7]

Попробуй
ItemIndex := Perform(LB_SELECTSTRING, -1, LongInt(S));

← →
harismatik (2002-11-25 12:23) [8]

2 Alex Y Спасибо. Получилось.

← →
mukha (2002-11-26 10:46) [9]

А может так?
Сначала установить Listbox1.Sorted:=true;
А затем:
procedure TForm1.Edit1Change(Sender: TObject); begin Listbox1.Perform( LB_SELECTSTRING ,0,LongInt(pchar(Edit1.Text))); end;

Позиционирование в ListBox или любом другом списке. Найти похожие ветки