Thema: Delphi Scrollbox als Property

Einzelnen Beitrag anzeigen

nebukadnezzar

Registriert seit: 18. Dez 2002
38 Beiträge
 
Delphi 6 Personal
 
#1

Scrollbox als Property

  Alt 30. Jan 2003, 18:10
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?
  Mit Zitat antworten Zitat