VPF::Проверить принадлежность компонента контейнеру[?]

Aleks26

Дата 12.3.2010, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 12.3.2010

Репутация: нет
Всего: нет

Если на форме несколько контейнеров типа Panel или GroupBox, а далее я в каждом из них хочу выравнять однотипные компоненты.
Простейшим примером является след. листинг:

Код


procedure TfrmListComp1.grbListComp1Enter(Sender: TObject);
var i: Integer;
begin
  for i := 0 to Self.ComponentCount-1 do
   if (self.Components[i] is Tlabel) then
    (Self.Components[i] as TLabel).Left := 20;
 end;
end;

Но при этом идет перебор всех компонентов TLabel на форме, а мне нужно разделить эти компоненты по контейнерам, в которых они находятся. То-есть, например, выровнять только компоненты Tlabel из контейнера grbListComp1 (типа GroupBox). Как такую проверку здесь организовать?

Это сообщение отредактировал(а) Rrader - 13.3.2010, 13:00

Mikel

Дата 12.3.2010, 17:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2

Так и перебирайте grbListComp1.Controls и проверяйте класс компонента или не проверяйте- зависит от задачи smile

--------------------

...so remember, it's better to burn out than to fade away

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »