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

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

Как в цикле перебрать компоненты [D5, Win95/98]

PlaZZma ©   (2002-01-31 01:05:00) 

Подскажите, как поменять одно св-во у большого числа компонентов (Label1, Label2, Label3, ..., Label20. И св-во Vilible).
Очень срочно нужно.Заранее благодарен.

---

copyr25   (2002-01-31 06:55:00) [1]

var
Form1: TForm1;
B:TComponent;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=1 to 4 do begin
B:=FindComponent("Button"+IntToStr(i));
(B as TButton).Visible:=False;
end;
end;

---

Walker_sw   (2002-01-31 05:58:00) [2]

а если не один Owner (владелец), то можно создать список (вот в список добавлять придётся вручную... но зато всего один раз)

---

GorA   (2002-01-31 02:47:00) [3]

если у всех компонент один Owner, то можно сделать так:


for i = "owner".ComponentCount - 1 downto 0 do
if ("owner".Component[i] is TLabel) then
with ("owner".Component[i] as TLabel) do
begin
left := 0;
Visible := True;
.....
end;


удачи

---

Miwa   (2002-01-31 01:15:00) [4]

В "Королевстве дельфи" в разделе "ФАК", кажется, есть отличная статься Е.Филипповой на эту тему. С примерами. Рекомендую. Если, конечно, имеется ввиду изменение свойств в режиме ран-тайм.

---

Наверх