Проход по компонетам

← →
TSa © (2003-12-02 19:54) [0]

Подскажите как можно реализовать проход в цикле по всех компонентам находящимся на форме при этом обращатся определённому свойству

← →
hooky-mars (2003-12-02 19:58) [1]

Если свойство у всех одинаковое, моно через указатель на компонент

← →
TSa © (2003-12-02 20:06) [2]

а примерчик
я знаю способ когда имена одинаковые но это нето (FindComponents)...

← →
Юрий Зотов © (2003-12-02 20:13) [3]

for i := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
TEdit(Components[i]).Text := IntToStr(i);

Юрий Зотов спасибо !!!

← →
BlackKing (2003-12-03 09:47) [5]

A takim obrazom projdjot po vsem komponentam i jesli on imejet eto svojstvo, izmenit jego :

Procedure SetCompEn(Sender:PForm;EnBtn:Boolean);
Var
Counter:Integer;
P:PPropInfo;
Begin
For Counter:=0 to Sender^.ComponentCount-1 do
If (Sender^.Components[Counter]).Tag=1 then
Begin
P:=GetPropInfo((Sender^.Components[Counter]).ClassInfo,"Enabled");
If P<>Nil then
SetOrdProp(Sender^.Components[Counter],P,Byte(EnBtn));
End;
End;

Проход по компонетам Найти похожие ветки