Комментарии: Перечисление всех компонентов на форме

Автор: crystalbit

crystalbit — Fri, 22 Jan 2010 11:41:24 +0000

Хорошее применение :)

Автор: Alex

Alex — Fri, 22 Jan 2010 09:38:44 +0000

Очень полезная возможность.
Делал примерно таким образом перевод интерфейса.

Автор: crystalbit

crystalbit — Sat, 02 Jan 2010 15:24:04 +0000

Как здорово, что все мы здесь сегодня собрались :)
Спасибо, с праздниками!

Автор: Алексей Тимохин

Алексей Тимохин — Sat, 02 Jan 2010 14:35:58 +0000

Параметр ChildsList: TList лучше объявить как const, чтобы случайно не изменить указатель. Также хорошо бы использовать try .. finally.

procedure FillChildComponentsList(const SourceComponent: TComponent;
 const ChildsList: TList);
var
  I: Integer;
begin
  //рекурсивный поиск дочерних компонентов
  for I := 0 to SourceComponent.ComponentCount - 1 do
  begin
    ChildsList.Add(SourceComponent.Components[I]);
    FillChildComponentsList(SourceComponent.Components[I], ChildsList);
  end;
end;

procedure Tf_TestFrameComponents.Button_TestComponentsClick(Sender: TObject);
var
  FoundedComponentsList: TList;
  I: Integer;
  Comp: TComponent;
begin
  //получение списка компонетов
  FoundedComponentsList := TList.Create;
  try 
    FillChildComponentsList(Self, FoundedComponentsList);

    //смена текста у всех лейблов
    for I := 0 to FoundedComponentsList.Count - 1 do
    begin
      Comp := FoundedComponentsList[I];
      if Comp is TLabel then
      begin
        (Comp as TLabel).Caption := 'Its work!';
      end;
    end;
  
  finally
    FreeAndNil(FoundedComponentsList);
  end;
end;

Автор: crystalbit

crystalbit — Sun, 27 Dec 2009 11:53:00 +0000

большое спасибо, внёс в пост

Автор: JayDi

JayDi — Sat, 26 Dec 2009 21:04:35 +0000

Вот рабочий вариант с рекурсией (подходит для фреймов):

procedure FillChildComponentsList(const SourceComponent: TComponent;
  var ChildsList: TList);
var
  I: Integer;
begin
  //рекурсивный поиск дочерних компонентов
  for I := 0 to SourceComponent.ComponentCount - 1 do
  begin
    ChildsList.Add(SourceComponent.Components[I]);
    FillChildComponentsList(SourceComponent.Components[I], ChildsList);
  end;
end;

procedure Tf_TestFrameComponents.Button_TestComponentsClick(Sender: TObject);
var
  FoundedComponentsList: TList;
  I: Integer;
  Comp: TComponent;
begin
  //получение списка компонетов
  FoundedComponentsList := TList.Create;
  FillChildComponentsList(Self, FoundedComponentsList);

  //смена текста у всех лейблов
  for I := 0 to FoundedComponentsList.Count - 1 do
  begin
    Comp := FoundedComponentsList[I];
    if Comp is TLabel then
    begin
      (Comp as TLabel).Caption := 'Its work!';
    end;
  end;

  FreeAndNil(FoundedComponentsList);
end;

Автор: crystalbit

crystalbit — Sat, 26 Dec 2009 15:13:59 +0000

всё понял
думал, что при создании, например, TLabel на TPanel в процессе дизайна, она также не будет в массиве Components, и что рекурсия – единственный выход
Теперь проверил и убедился, сейчас внесу изменения

Автор: Алексей Тимохин

Алексей Тимохин — Sat, 26 Dec 2009 14:45:20 +0000

Panel1 – на форме, а tmpEdit на панели. Поэтому перебирая компоненты формы, мы не получим доступ к tmpEdit. Но реально – такая ситуация очень редка и скорее является извращённой.
Чаще же всего в реале с ней можно столкнуться только при использовании фреймов.

Не знаю, что там может быть на целый пост, Имхо, достаточно в этом посте указать, что для фреймов, этот механизм может не сработать.

Автор: crystalbit

crystalbit — Sat, 26 Dec 2009 14:00:32 +0000

это да, Panel1 же на форме
Получается, рекурсией – наиболее полноценный алгоритм? С твоего позволения напишу пост об этом)

Автор: Алексей Тимохин

Алексей Тимохин — Sat, 26 Dec 2009 13:24:44 +0000

> А если компонент создавался динамически, и owner не форма (и не на форме), то как быть? И как такое может быть, если это визуальный компонент?

Если компонент создаётся например так:
var
tmpEdit: TEdit;
begin
tmpEdit:=TEdit.Create(Panel1); // это не корректно, но возможно
tmpEdit.Parent := Panel1;
end;