Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.014 c
1-90315           Shein                 2002-01-11 10:19  2002.01.28  
Есть проблемка с оболочкой Дельфей


1-90259           SergeyNew             2002-01-07 11:12  2002.01.28  
Две колонки в ListBox


1-90310           Reals                 2002-01-10 11:21  2002.01.28  
Проверка: Откуда запущена прога...


1-90256           SuperMama             2002-01-08 14:14  2002.01.28  
Как в D5 организовать цифры ПРОПИСЬЮ ?


1-90319           Tor                   2002-01-08 22:42  2002.01.28  
Массивы объектов