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

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

← →
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);

---

← →
TSa ©   (2003-12-02 23:33) [4]

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

---

← →
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;

---

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

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



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