Форум: "Основная";
Поиск по всему сайту: 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.024 c
7-90387           Media                 2001-10-12 09:19  2002.01.28  
MP3 - Головная боль


3-90187           AlexOb                2001-12-22 15:56  2002.01.28  
Проблема с суммированием более 12 баз данных :(


3-90226           Ross                  2001-12-24 21:58  2002.01.28  
ProgressBar


3-90230           Mr.Sane               2001-12-25 10:45  2002.01.28  
SQL


1-90309           Hair_Fly              2002-01-11 11:07  2002.01.28  
Как при компиляции задавать имя exe-файла ?