Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.02.03;
Скачать: 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 вся ветка

Текущий архив: 2008.02.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.022 c
2-1199479311
MMQ
2008-01-04 23:41
2008.02.03
Объекты


3-1190862009
Arkadiy
2007-09-27 07:00
2008.02.03
строковое поле


2-1199879502
Washington
2008-01-09 14:51
2008.02.03
Проблема с загрузкой DLL


15-1198473529
Kolan
2007-12-24 08:18
2008.02.03
Хотят заставить сделать интерпритатор, я упираюсь &#133 :)


15-1198493736
FreeBSD
2007-12-24 13:55
2008.02.03
Gambas