Фреймы!

[Gurt87]

Доброго времени суток!
Возникла проблема при работе с фреймами – отсутствие у них событий типа OnShow, OnCreate, OnActivate.
Например фрейм создается динамически

procedure TMainMenuForm.FormShow(Sender: TObject);
begin
CurrentFrame := TTestFrame.Create(MainMenuForm);
MainMenuForm.UpdateFrame;  //процедура что размещает фрейм на форме
end;

Проблема заключается в следующем:
По открытию MainMenuForm необходимо загрузить во фрейм данные, а лишь потом вывести его на форму.
Если бы была у фрейма процедура OnCreate то все бы стало ясно….а так….нужна альтернатива...

Заранее благодарен!

[Пепел Феникса]

CurrentFrame := TTestFrame.Create(MainMenuForm);
MainMenuForm.UpdateFrame;

а между этими строками не вывести данные все?