Delphi World - Notebook как контейнер для форм 2

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Notebook как контейнер для форм 2

Автор: Ralph Friedman

Кто-нибудь может мне помочь в вопросе размещения подклассов форм на страницах компонента TTabbedNotebook?

Я пробовал следующий код и он отлично работает с компонентами, являющимися частью формы, содержащей TTabbedNotebook; тем не менее он не работает с дочерними формами:

ChildForml[i].Parent := TWinControl(BrowseTabNotebook.Pages.Objects[i]);

В дочерней форме должен быть следующий код:

private
  { Private }
  procedure CreateParams(var Params: TCreateParams); override;

...

procedure TChildForm1.CreateParams(var Params: TCreateParams);
begin
  { сначала вызываем унаследованные методы. }
  inherited CreateParams(Params);
  with Params do
  begin
    WndParent := Application.Mainform.Handle;
    Style := (Style or WS_CHILD) and not WS_POPUP;
  end;
end;

Надеюсь это окажется полезным!