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);begininherited CreateParams(Params); { сначала вызываем унаследованные методы. }with Params do beginWndParent := Application.Mainform.Handle;Style := (Style or WS_CHILD) and not WS_POPUP;end;end; |
- Ralph Friedman [000823]