TabSheets...

[bingo72]

Danke für eure Tipps...

Die alte TNotebook-Komponente war vorher im Einsatz, läßt sich aber nicht vererben (TNotebook: this component doesn't support inheritance....blabla)... drum Umsteig auf PageControl!!

Habe das Problem insofern in den Griff bekommen, als das ich mir eine Komponente von PageControl abgeleitet habe....nach folgenden Muster und es funzt!!

Delphi-Quellcode:

unit BPageControl;

interface

uses
  ComCtrls, Messages, Controls, Classes, Windows, CommCtrl;


type 
   TBPageControl = class(TPageControl)
   private
   protected
     procedure WndProc(var Msg: TMessage); override;
     procedure CreateParams(var Params: TCreateParams); override;
   public
     constructor Create(AOwner: TComponent); override;
   end;

implementation

constructor TBPageControl.Create(AOwner: TComponent);
begin
   inherited;
   //ParentBackground := False;
end;


procedure TBPageControl.CreateParams(var Params: TCreateParams);
begin
   inherited;
   //ParentBackground := False;
end;


procedure TBPageControl.WndProc(var Msg: TMessage);
begin
  inherited WndProc(Msg);
  if (Msg.Msg = TCM_ADJUSTRECT) then begin
    with PRect(Msg.LParam)^ do begin
      Left := 0;
      Right := ClientWidth;
      Top := Top - 6;
      Bottom := ClientHeight;
    end;
  end;
end;
end.

Vielleicht kann es ja mal wer brauchen!!