Как на форме найти компонент по его 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

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

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

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

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

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