Object wird auf eingener Komponente nicht erzeugt

[Pro_RJ]

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

[DeddyH]

Versuch mal im Konstruktor

Delphi-Quellcode:

ControlStyle := ControlStyle + [csAcceptsControls];

[Pro_RJ]

Zitat:

Zitat von DeddyH

Versuch mal im Konstruktor

Delphi-Quellcode:

ControlStyle := ControlStyle + [csAcceptsControls];

Delphi-Quellcode:

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

Nein das hat leider auch nicht geklappt

[BAMatze]

Wie rufst du das TWinControl auf deiner Form auf? Hatte letztens auch ein ähnliches Problem und da hatte ich die Parent Funktion einfach beim initialisieren vergessen.

[Luckie]

Wie erzeugst du die Schaltfläche?

[DeddyH]

So wie ich das verstanden habe, besteht das Problem bereits zur Designtime, also Komponente aufs Form, Button auf Kompo, Button weg. Falls das so nicht stimmt, bitte ich um Aufklärung.

[Pro_RJ]

Zur Entwurfszeit ist der Button da und auch sichtbar auf der Komponente(MeineClasse) nur zur Laufzeit wird dieser Button nicht erzeugt.
Also Button1 = NIL;

[DeddyH]

Wie sieht die *.dfm denn aus?

[Pro_RJ]

Delphi-Quellcode:

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 427
  ClientWidth = 652
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object MeineClasse1: TMeineClasse
    Left = 96
    Top = 72
    Width = 457
    Height = 289
  end
end

ich seh gerade da steht nichts von dem Button1 drin. aber warum nur :gruebel:

im Form sieht es so aus :

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MeineClasse;

type
  TForm2 = class(TForm)
    MeineClasse1: TMeineClasse;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var                                                                   
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  if Assigned(Button1)
  then SHowmessage('Button ist erzeugt')
  else SHowmessage('Button ist NICHT erzeugt')
end;

end.

[taaktaak]

Wo ist denn die Verbindung deiner Klasse mit dem Button?
Der Button müsste auf dem Form erscheinen...