Приветствую Вас, Гость · RSS Среда, 27.10.2021, 10:59








Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » 2011 » Ноябрь » 1 » Изменение свойств всех объектов класса
Изменение свойств всех объектов класса
16:57

Делал раньше подобное, но когда недавно снова понадобилось, то потратил кучу времени на поиск решения, поэтому выкладываю на будущее:

Поставить на Form.Resaise:


for i := 0 to ComponentCount - 1 do

if (Components[i] is TGroupBox) then
   begin
   (Components[i] as TGroupBox).Left:= 10;
   (Components[i] as TGroupBox).Top:= 10;
   (Components[i] as TGroupBox).Width:=form1.Width-25;
   (Components[i] as TGroupBox).Top:=form1.Height-90;
   end;
Категория: Delphi | Просмотров: 978 | Добавил: windog | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]