| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как на форме найти компонент по его Tag [D7, WinXP]

вопросник ©   (2006-04-03 20:56:00) 

Собственно сабж

---

veb   (2006-04-04 11:16:00) [1]

как? как?
да никак!
:)

---

Плохиш   (2006-04-04 11:07:00) [2]

> Пример может и неудачный, однако здесь упор на использование
> FindComponent

И как поможет FindComponent ответить на поставленный автором вопрос?

---

kyn66   (2006-04-04 11:04:00) [3]

> Плохиш
Пример может и неудачный, однако здесь упор на использование FindComponent

---

Palladin   (2006-04-04 10:49:00) [4]


Procedure FindCompByTag(p_theParent:TComponent;p_nTag:Integer;p_theRes:TList);
Var
 i:Integer;
Begin
 With p_theParent Do For i:=0 to ComponentCount-1 Do
  Begin
    If Components[i].Tag=p_nTag Then p_theRes.Add(Components[i]);
    FindCompByTag(Components[i],p_theRes);
  End;
End;


---

Плохиш   (2006-04-04 10:43:00) [5]

> kyn66 ©   (04.04.06 10:37) [2]

Осталось узнать как это отвечает на поставленный вопрос.

---

kyn66   (2006-04-04 10:37:00) [6]

Можно использовать FindComponent. Вот для поиска Label.

  k := TLabe(FindComponent('Label') + IntToStr(1))).Tag;


---

Джо   (2006-04-03 20:58:00) [7]

for I := 0 to ComponentCount-1 do
 if Components[I]. Tag = ... then
   ...

---

Наверх