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

Получить все элементы с контролла   Найти похожие ветки 

← →
Васька   (2008-01-04 21:44) [0]

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

---

← →
{RASkov} ©   (2008-01-04 21:46) [1]

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

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

---

← →
{RASkov} ©   (2008-01-04 22:02) [2]

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

---

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

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



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