Проблем с TNotebook

Налага ми се да използвам TNotebook и да създавам динамично компоненти по страниците му. За съжаление, след превключване на страницата новосъздадения компонент изчезва от нея! С TPageControl няма такъв проблем. Със статично създадените контроли също няма проблеми. Някой да се е сблъсквал с подобно поведение?

P.S. Използвам TNotebook в комбинация s TTabControl за да контролирам показването на табовете. С TPageControl просто незнам как да ги скрия, а това ми се налага често - защото правя нещо като wizard.

1. Задаваш на PageControl-a Style = tsFlatButtons (за да му махнеш рамката)
2. За всеки таб задаваш tabVisible := False;
За да обхождаш табовете в Design Time ползваш pop-up menu и Next Page (или просто скриваш табовете преди да reliesenesh версията, обаче ако правиш така - трябва да съобразиш, че като скриеш табовете, за всяка страница ще ти остане празно място от горе. Решение: правиш му TabPosition := tpBottom (тогава пък не можеш да ползваш tsFlatButtons, но не е болка за умиране...) Имам опит с тоя PageControl :)))

-------------
Special killer double trouble triple extra nicotine monster!

10x!

Решението е малко "дървено", но ще свърши работа. Иначе щях да го правя с TabControl и панели в масив или нещо подобно.....

Интересно обаче, защо TNotebook се дъни? Аз и сега го ползвам на няколко места, но с контроли, създадени по време на дизайн и няма проблеми.

ne vizdam koga tochno se poluchava tozi problem, kojto opisvash.
moje bi izpuskash neshto...

tova raboti pri men:

var

  page : TPage;

  label : TLabel;



......



if note.PageIndex > -1 then 

  begin

    page := TPage(note.Pages.Objects[note.PageIndex]);

    label := TLabel.Create(page);

    try

      label.Parent := page;

      label.Caption := IntToStr(note.PageIndex);

    except

      label.Free;

    end;

    page.Visible := true;

  end;

______________
Щом не върви от първия път, значи има шанс