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

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

Получить все элементы с контролла [D7, 2003]

Васька ©   (2008-01-04 21:44:00) 

Такая ситуация: у меня есть TPanel, как мне получить все TImage расположенные на нем? Например с целью скрыть их (TImage.Visible = False)

---

{RASkov}   (2008-01-04 22:02:00) [1]

procedure SetVisible(AOwner: TWinControl; TCtrl: TControlClass; const AVisible: Boolean);
var N: Integer;
begin
 for N:=0 to AOwner.ControlCount-1 do
  if AOwner.Controls[N] is TCtrl then AOwner.Controls[N].Visible:=AVisible;
end;

SetVisible(Panel, TImage, False);

---

{RASkov}   (2008-01-04 21:46:00) [2]

> [0] Васька   (04.01.08 21:44)

for, ControlCount, Controls, is, TImage().Visible:=False

---

Наверх