PageControl bei alClient auf Tabsheet Größe vergößern

[ryLIX]

Ok nach viel rumprobieren hier die Auflösung:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
[...]
  protected
    { Protected-Deklarationen }
     procedure CustomAlignPosition(Control: TControl; var NewLeft: Integer;
      var NewTop: Integer; var NewWidth: Integer; var NewHeight: Integer;
      var AlignRect: TRect; AlignInfo: TAlignInfo); override;
  end;
[...]
procedure TForm1.CustomAlignPosition(Control: TControl; var NewLeft, NewTop,
  NewWidth, NewHeight: Integer; var AlignRect: TRect; AlignInfo: TAlignInfo);
begin
  inherited;
  if Control = PageControl1 then
  begin
    NewLeft := AlignRect.Left;
    Newtop := NewTop - PageControl1.TabHeight;
    NewWidth := AlignRect.Right;
    NewHeight := AlignRect.Bottom;
  end;
end;

Dieser Code ergibt dann das aussehen wie im Screenshot aber so das die Breite über den Splitter variabel bleibt und das PageControl trotzdem den Rest des Fensters ausfüllt.