Форум: "Основная";
Поиск по всему сайту: 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.032 c