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

[ryLIX]

Hi,
ich möchte gern ein PageControl mit alClient so vergößern das die Tabs ein anderes Control überlagern.
Ich hab schon versucht was mit alCustom zu basteln aber das funktioniert irgendwie nicht :(

Ich hab ein Beispiel Screen angehängt.
Hat jemand eine Idee wie man das realiseren kann?

Noch kurz was zu dem Form:
Oben ist ein TImage mit alTop, Links ein Treeview mit alLeft und ein Splitter mit alLeft und das PageControl welches alClient haben sollte aber die Tabs sollten halt oben überlagern.

[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.