TListBox

← →
NLO (2002-01-11 07:16) [0]

Задача такая.
кидаю на форму Edit и ListBox в Edit ввожу текст, нужно чтобы в ListBox производился поиск этой подстроки и на нее сделать фокус.

← →
gek (2002-01-11 07:21) [1]

if ListBox_.Items.IndexOf(Edit_.Text) < 0 then
Showmessae("не найден")
else
begin
Showmessae("найден")
edit_.setfocus;
end;

← →
Mbo (2002-01-11 07:26) [2]

видимо,не совсем то - найдется только полная строка
если надо именно подстроку - придется пробегать список
for i:= 0 to ListBox1.Items.Count-1 do
if pos(Edit1.Text,ListBox.Items[i])>0 then begin
ListBox1.SetFocus;
ListBox1.ItemIndex:=i;
Break;
end;

← →
NLO (2002-01-11 07:31) [3]

Я вот попробовал, забиваю туда в едит строку. все он ищет но переводит фокус на листбох а мне мож еще надо кой какие символы забить

← →
gek (2002-01-11 07:32) [4]

>> Mbo
Да ты прав, согласен, если искать подстроку

← →
MBo (2002-01-11 08:25) [5]

>nlo
так ты ж и спрашивал
>на нее сделать фокус.
если не надо, то убери
ListBox1.SetFocus;
и скомбинируй с тем, как у gek

← →
NLO (2002-01-11 12:20) [6]

Спасибо большое ! Все ОК.

← →
NLO (2002-01-11 12:44) [7]

Хотя это не работает если свойство MultiSelect стоит в true, как быть ?

← →
Mbo (2002-01-11 13:02) [8]

что не работает?
подходящая строка находится.
что дальше-то делать надо?

← →
NLO (2002-01-11 13:09) [9]

Все работает если свойство MultiSelect стоит в false, а как только включишь все не позиционирует

← →
Mbo (2002-01-11 13:24) [10]

listbox1.Selected[i]:=true;

← →
Сергей Иванов (2002-01-11 14:23) [11]

//А так не пробовал?
ListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(Edit1.text)));

TListBox Найти похожие ветки