Abstand der Tabsheets zum PageControl entfernen?

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