Einzelnen Beitrag anzeigen

Benutzerbild von Mystic
Mystic

Registriert seit: 18. Okt 2003
Ort: Flerzheim
420 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Abstand der Tabsheets zum PageControl entfernen?

  Alt 21. Jan 2006, 17:31
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;
Jan Steffens
Der Fachwortgenerator - 100% Schwachsinn --- Der UPnP Router Manager - Kommentare erwünscht!
  Mit Zitat antworten Zitat