Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Вниз

Как на форме найти компонент по его Tag   Найти похожие ветки 

← →
вопросник   (2006-04-03 20:56) [0]

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

---

← →
Джо ©   (2006-04-03 20:58) [1]

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

---

← →
kyn66 ©   (2006-04-04 10:37) [2]

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

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


---

← →
Плохиш ©   (2006-04-04 10:43) [3]

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

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

---

← →
Palladin ©   (2006-04-04 10:49) [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;


---

← →
kyn66 ©   (2006-04-04 11:04) [5]

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

---

← →
Плохиш ©   (2006-04-04 11:07) [6]

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

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

---

← →
veb   (2006-04-04 11:16) [7]

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

---

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

Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Наверх

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