Delphi 1
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]