Форум: "Основная";
Текущий архив: 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)));
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c
