Определить, какое TMemo находится на вкладке TPageControl

[ex.cluz]

Товарищи кодеры, здраствуйте!
Я программно создаю TPageControl а в нем вкладки, на которых создаются TMemo.
Мне необходимо определить, какой Memo находится на открытой пользователем вкладке и передать ему фокус ввода (SetFocus).

Как это можно сделать?
Можно ли это сделать, зная только ActivePageIndex?

[evg_m]

кроме activepageindex есть еще и ActivePage

activepage = pagecontrol.pages[activepageibdex]

поиск memo на вкладке

for j:=0 to activepage.controlcount-1 do
  if activepage.controls[i].inheritedfrom(Tmemo) then
     TMemo(activepage.controls[i]).SetFoucus;

[ex.cluz]

Введу небольшое дополнение:
1. Создается по одному tmemo на вкладку, поэтому цикл не нужен (индекс всегда будет равен 0);
2. Создается несколько TPageControl, на одной из динамически созданных вкладок другого пэйдж контрола (родитель), соответственно, необходимо выяснить, какая вкладка первого пэйдж контрола открыта, а затем, какая вкладка второго пэйдж контрола активна, и передать фокус тому мемо, что находится на ней.
Алгоритм-то я понял, а вот как реализовать?




Все! Реализовал!

evg_m, большое спасибо!