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