Scrollbox als Property

[nebukadnezzar]

Also ich hab von TTabsheet abgeleitet und will das automatisch eine Scrollbox beim Erstellen mit drauf ist und das deren eigenschaften über den OI einstellbar sind.
also hab ich folgendes getan:

Delphi-Quellcode:

type  TilTabsheet = class(TTabsheet)
  private
   FScrollBox:Tilscrollbox;
  public
   Constructor Create(aowner:Tcomponent);override;
   Destructor Destroy;override;
  published
    { Published declarations }
    Property Scrollbox:TilScrollbox read Fscrollbox write Fscrollbox;
  end;
...

Constructor TilTabsheet.Create(Aowner:Tcomponent);
BEgin
     inherited;
     Scrollbox:=Tilscrollbox.Create(Self);
     scrollbox.Parent:=self;
ENd;

Destructor TilTabsheet.Destroy;
Begin
       scrollbox.free;
     inherited;
end;

ausserdem die Compiler direktive {$m+} benutzt (weil ich das irgendwo in der Hilfe gelesen hab)
aber wenn ich die Einstellungen im OI mache und das Programm starte sind die werte der Properties der Scrollbox futsch

was mache ich falsch?

[Marco Haffner]

Also da ich derzeit leider keinen Zugriff auf Delphi habe kann ich es auch nicht genau sagen,
bin mir aber irgendwie sicher, in den letzten Tagen schon einmal sowas ähnliches hier gelesen zu haben.
Ich glaube es ging irgendwie um TColors.
Aber warum verwendest du TabSheet?
Ich meine eine TabControl wäre da besser,
wenn jede Seite nur eine Scrollbox enthalten soll.

[Gollum]

Hallo,

@nebukadnezzar
ist das der Code den Du benutzt, oder nur komprimiert gepostet?

• bei Create : inherited Create(aOwner);
  bei Destroy: inherited Destroy;

Sollte es daran nicht liegen, würde ich die Scrollbox eimal folgendermaßen erzeugen:

Code:

type  
  TilTabsheet=class(TTabsheet)
  ...
  public
    procedure CreateWnd; override;
  ...
  end; // TilTabsheet

procedure TilTabsheet.CreateWnd;
begin
  inherited CreateWnd;
  Scrollbox:=Tilscrollbox.Create(Self);
  Scrollbox.Parent:=self;
  ...
end;