Поиск динамически созданных компонентов

@ilya198293 · Регистрация: 14.09.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Не могу сладить с поиском динамически созданных компонентов.
На форме есть PageControl.
Динамически создаю вкладку, на неё динамически накидываю компоненты, в том числе Panel, на Panel ещё компоненты накидываю. При запуске визуально выглядит именно так как я хочу.

Теперь нужно обратиться к любому из компонентов на вкладке.

Я так понял, что FindComponent, ищет компоненты только в пределах одного Parent.
Например:

Delphi

1	Form1.FindComponent[имя компоненты] as TComponent

.

Когда у меня компонентов куча и глубина с Parent не заканчивается одним уровнем, то в итоге FindComponent ничего не находит.

Например:
Завершил создание динамических компонентов.
Где-то в памяти остался последний Parent и код

Delphi

1	(FindComponent('SG' + IntToStr(LocalNumberTab)) as TStringGrid).RowCount := 1;

отрабатывает нормально.

Потом Подключаюсь к СУБД и пытаюсь обратиться к таблице для заполнения:

Delphi

with FMetrForm.SQLQuery do
  begin
    SQL.Clear;
    SQL.Add('добавление SQL запроса');
    Open;
    First;
    while not EOF do
    begin
      (FindComponent('SG' + IntToStr(LocalNumberTab)) as TStringGrid).RowCount :=
        (FindComponent('SG' + IntToStr(LocalNumberTab)) as TStringGrid).RowCount + 1;
      Next;
    end;
    Close;
    SQL.Clear;
  end;

И вот этот код

Delphi

1 2	(FindComponent('SG' + IntToStr(LocalNumberTab)) as TStringGrid).RowCount := (FindComponent('SG' + IntToStr(LocalNumberTab)) as TStringGrid).RowCount + 1;

уже не прокатывает.

Как организовать поиск компонента с именем 'SG' + IntToStr(LocalNumberTab) не зависимо от того какой у него Parent.

@volvo · 27.03.2016, 22:22

Сообщение от ilya198293

Я так понял, что FindComponent, ищет компоненты только в пределах одного Parent

Не Parent-а, а Owner-а, так что все в порядке, должно искать. Только что создал на форме PageControl, в нем - панель, на ней - еще один PageControl, и туда еще Panel, и на панель уже кнопку. И запросто обычным вызовом FindComponent эту кнопку нашло.

Добавлено через 35 минут
А лучше использовать FindNestedComponent, тогда вообще проблем не будет (если все вложенные компоненты именованы, а не безымянные)

Pascal

var
  b : TButton;
begin
  b := FindNestedComponent(Self, 'pc_1.ts_1.pnl_1.pc_2.ts_2.pnl_2.mybutton') as TButton; // для описанного выше случая
  if Assigned(b) then
  begin
    b.Caption:='test'; // прекрасно меняется текст на кнопке
  end;
end;

	27.03.2016, 22:22