Скачать: CL | DM;

работа с диалогом Find   Найти похожие ветки 

← →
Dennis S ©   (2002-11-04 14:38) [0]

Народ, помогите...
как пользоваться FindDialog-ом???
У меня есть ListBox - там скажем пока 36 записей - будет больше...
Как организовать поиск через ентот самый диалог?

---

← →
Dennis S ©   (2002-11-04 16:00) [1]

Может вопрос глупый, а может просто никто не знает... :))

---

← →
F1 ©   (2002-11-04 16:13) [2]

>Может вопрос глупый, а может просто никто не знает... :))
А может кто-то Helpы не читает... :))
См.
FindDialog1.Execute;
FindDialog1.FindText;

---

← →
Dennis S ©   (2002-11-04 16:15) [3]

до этого я сам докатился... а потом что???
...OnFind что ли ??

---

← →
F1 ©   (2002-11-04 16:26) [4]

Ну а если вот так:

procedure TForm1.FindDialog1Find(Sender: TObject);
Var
i:Integer;
begin
For i:=j to ListBox1.Items.Count-1 do
begin
if StrPos(PChar(ListBox1.Items.Strings[i]),PChar(FindDialog1.FindText))<>Nil then
begin
ListBox1.ItemIndex:=i;
j:=i+1;
Exit;
end;
end;
//Поиск закончен, можно чтонибудь сказать... и начать заново.
j:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
j:=0;
FindDialog1.Execute;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c