Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.28;
Скачать: CL | DM;

Вниз

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)));




Страницы: 1 вся ветка

Текущий архив: 2002.01.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.007 c
1-90303
KingSize
2002-01-11 11:35
2002.01.28
Имя компьютера в сети


7-90393
rel
2001-10-16 18:30
2002.01.28
Модемы


1-90293
Phobos
2002-01-10 23:08
2002.01.28
Как сделать так чтобы прога при разных разрешениях смотрелась одинаково?


14-90360
ddd-numerical TV
2001-11-29 07:06
2002.01.28
ACTIVE LIST


4-90437
LLL
2001-11-24 14:01
2002.01.28
модальное окно, которое при этом не является диалоговым