Page in JvPageList hinzufügen

[jbg]

Delphi-Quellcode:

var
  Page: TJvStandardPage;
  Item: TJvTabBarItem;
begin
  Item := MyJvTabBar.AddTab('MyTab');
  Page := TJvStandardPage.Create(Self);
  Page.PageList := MyJvPageList;

  { die beiden (Tab und Page) miteinander auf Programmierebene verknüpfen, also nur für den Programmierer zum leichteren Auffinden der Page und TabItem gedacht. Die Komponenten arbeiten deswegen nicht besser zusammen, sondern haben auch nur ihre schon vorhandene Funktionalität }
  { Um später über Item.Data auf die Page zugreifen zu können }
  Item.Data := Page;
  { Damit beim freigeben des TabBarItem auch die Page freigegeben wird. (Gibt es erst seit ein paar Tagen im JVCL daily zip.) }
  Item.AutoDeleteData.Add(Page);
  { Von der Page den direkten Zugriff auf das TabBarItem ermöglichen (Gibt es erst seit ein paar Tagen im JVCL daily zip.) }
  Page.Data := Item;

  with TButton.Create(Page) do
    Parent := Page;
end;