Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

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

Delphi , Компоненты и Классы , Вкладки и Страницы

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;

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

В статье описывается способ размещения подклассов форм на страницах компонента TTabbedNotebook в Delphi, демонстрируя пример кода для решения этой проблемы.


Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.


:: Главная :: Вкладки и Страницы ::


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-08-19 13:29:56
2024-11-02 20:30:02/0.0066561698913574/1