Einzelnen Beitrag anzeigen

Pro_RJ

Registriert seit: 16. Apr 2008
146 Beiträge
 
#1

Object wird auf eingener Komponente nicht erzeugt

  Alt 18. Mär 2009, 12:42
Huhu,
Ich habe mir mal eine TestClasse geschrieben auf der nur ein Panel erzeugt wird.

Delphi-Quellcode:
unit MeineClasse;

interface
uses Controls,ExtCtrls,Classes,SysUtils,Graphics ;
Type
  TMeineClasse = class(TWincontrol)
    U_Panel : TPanel;
    Private

    Public
      Constructor Create(AOwner : TComponent); override;
      Destructor Destroy;override;
  end;

procedure Register;
implementation


procedure Register;
begin
  RegisterComponents('Standard', [TMeineClasse]);
end;


{ TMeineClasse }

constructor TMeineClasse.Create(AOwner: TComponent);
begin
  inherited;
  U_Panel := TPanel.Create(Self);
  U_Panel.Parent := Self;
  U_Panel.Color := CLRed;
  U_Panel.Align := ALClient;
end;

destructor TMeineClasse.Destroy;
begin
  FreeandNil(U_Panel);
  inherited;
end;

end.
Wenn ich diese Komponente jetzt auf einem Formular einbinde und auf dieses Object jetzt noch einen Button lege wird dieser Button nicht erzeugt.Muss in der Komponente noch irgendwas deklariert werden, damit auf ihr auch noch weitere Objecte angelegt werden können?
Im Anhang ist mein ein kleines Beispielprojekt in dem man es sehr schön sehen kann.
ich nutze BDS 2006
mfg
Jens
Angehängte Dateien
Dateityp: rar testunits_342.rar (12,2 KB, 1x aufgerufen)
  Mit Zitat antworten Zitat