PageControl & Resize

[Christian Seehase]

Moin Nebukadnezzar,

und so:

Delphi-Quellcode:

var
  tsWork : TTabSheet;

begin
  tsWork := TTabSheet.Create(PageControl1);
  with tsWork do
  begin
    Parent := PageControl1;
    PageControl := PageControl1;
  end;
  with TScrollBox.Create(tsWork) do
  begin
    Parent := tsWork;
    Anchors  := [akleft,akbottom,akright,aktop];
  end;
  tsWork := TTabSheet.Create(PageControl1);
  with tsWork do
  begin
    Parent := PageControl1;
    PageControl := PageControl1;
  end;
  with TScrollBox.Create(tsWork) do
  begin
    Parent := tsWork;
    Anchors  := [akleft,akbottom,akright,aktop];
  end;

Wie gehabt, so geht's bei mir.