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;
|
Надеюсь это окажется полезным!
|