Главная страница
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.02 c
11-1182867408
Vladimir Kladov
2007-06-26 18:16
2008.02.03
Версия 2.71


3-1190642401
novill
2007-09-24 18:00
2008.02.03
Как без UDF реализоывать в IB7.5 обрезать строки до нужной длины?


15-1198944919
niKo
2007-12-29 19:15
2008.02.03
прием файла скриптом


2-1199617359
WebSQLNeederr
2008-01-06 14:02
2008.02.03
Как загрузить изображение в TPaintBox


15-1198589863
Prohodil Mimo
2007-12-25 16:37
2008.02.03
FastReport align в TfrxCrossView