Обратиться к нужному RichEdit

[Xo66um]

Всем привет.
Собственно, программа динамически создает вкладки на PageControl, и на этих вкладках также компоненты ToolBar (с кнопками) и RichEdit.
Всем динамически создаваемым компонентам (на вкладке) присваивается один и тот-же Tag.
Также каждой кнопке на ToolBar при создании назначается обработчик OnClick, который должен обращаться к RichEdit-у на этой же вкладке.

Можно как-нибудь реализовать обращение к нужному RichEdit? Или я себя загнал в тупик, и зря мучаюсь уже второй день?

[Аватар]

ToolBar то на вкладке лежит, напрямую или опосредовано. По цепочке найти Parent-а c типом TTabScheet. И в его ребенках поиcкать RichEdit, возможно тоже по цепочке, если у RichEdit-а есть промежуточный родитель. Хорошо если RichEdit единственный, иначе придется еще среди них чего-то мудрить.

[Xo66um]

Аватар, воспользовался вашим советом, родителя вроде нахожу правильно, и вроде как правильно обращаюсь к нужному RichEdit-у, но появилась другая проблема...

Пишет ошибку: Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

Назначаем обработчик кнопки при его создании:

...
ToolBar.Buttons[1].OnClick := Test(ToolBar);
...

Сам обработчик кнопки:

procedure Test(ToolBar: TToolBar);
var
 i: integer;
begin
 for i := 0 to ToolBar.Parent.ComponentCount-1 do
  begin
   if ToolBar.Parent.Components[i] is TRichEdit then
    begin
     (ToolBar.Parent.Components[i] as TRichEdit).Text := 'Ура! Получилось!';
    end;
  end;
end;

В чем может быть проблема?

[Аватар]

procedure TForm1.Test(Sender: TObject);

.......

ToolBar.Buttons[1].OnClick := Test;

[eval]

Или я себя загнал в тупик, и зря мучаюсь уже второй день?

это скорее всего, есть фреймы к примеру, там ненадо ничего искать

[Xo66um]

Скомпилировалось, но не работает =(

UPD:
Ан нет, работает, но на другой вкладке... Видимо косяк с определением родителя...

Спасибо большое, Аватар.