Abstand der Tabsheets zum PageControl entfernen?

[Mystic]

Ich versuche gerade einen First-Run Wizard zu erstellen. Ich verwende dazu ein PageControl.

Natürlich sollten dazu die Tabs weg sein. Per TabSheet.TabVisible := false und PageControl.Style := tsFlatButtons komme ich nun zu folgendem Ergebnis:

http://img509.imageshack.us/img509/6962/tabsheet5mw.png

Wie kriege ich jetzt noch den Abstand zwischen dem Tabsheet und dem PageControl weg (hier Rot eingefärbt)?

[Mystic]

Hat sich erledigt. Hier die Lösung:

Delphi-Quellcode:

type
  TWizardForm = class(TForm)
    {...}
  private
    { Private declarations }
    OldPagesWndProc: TWndMethod;
    procedure NewPagesWndProc(var Message:TMessage);
  end;

Delphi-Quellcode:

procedure TWizardForm.FormCreate(Sender: TObject);
begin
  OldPagesWndProc := Pages.WindowProc;
  Pages.WindowProc := NewPagesWndProc;
end;

procedure TWizardForm.NewPagesWndProc(var Message: TMessage);
begin
  if Message.Msg = TCM_ADJUSTRECT then
  begin
    OldPagesWndProc(Message);
    PRect(Message.LParam)^.Left   := 0;
    PRect(Message.LParam)^.Right  := ClientWidth;
    PRect(Message.LParam)^.Top    := PRect(Message.LParam)^.Top - 4;
    PRect(Message.LParam)^.Bottom := ClientHeight;
  end else
    OldPagesWndProc(Message);
end;