Советы по Delphi

         

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


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

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

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

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

    private { Private-Deklarationen }

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;

- Ralph Friedman [000823]



Содержание раздела