Einzelnen Beitrag anzeigen

Benutzerbild von Leuselator
Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
 
Delphi 8 Architect
 
#1

Eigene Komponente "verliert" Controls

  Alt 18. Mär 2003, 12:10
Hi alle!

Habe Probleme mit selbstgebauten Komponenten.
Zum Beispiel TTestPanel mit darauf plaziertem Child-TPanel:
Plaziere ich zur Entwurfszeit ein (z.B.) TEdit auf dem TTestPanel so ist es zur Laufzeit sichtbar - plaziere ich das TEdit auf ChildPanel so "verschwindet" es zur Laufzeit im Nirvana.
Am Borland-Stand auf der C-Bit konnte man mir damit nicht helfen...


Delphi-Quellcode:
unit TestPanel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TTestPanel = class(TPanel)
  private
    { Private-Deklarationen }
    ChildPanel : TPanel;
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor destroy; override;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

constructor TTestPanel.Create(AOwner: TComponent);
begin
  inherited create(AOwner);
  width := 400;
  Height := 200;
  ChildPanel := TPanel.create(self);
  ChildPanel.Parent := self;
  ChildPanel.left := 5;
  ChildPanel.Top:=5;
  ChildPanel.Width := 190;
  ChildPanel.Height := 190;
  ChildPanel.Caption := 'Childpanel looses its controls';
end;

destructor TTestPanel.destroy;
begin
  ChildPanel.Free;
  inherited;
end;

procedure Register;
begin
  RegisterComponents('TestPanel', [TTestPanel]);
end;

end.
Tim Leuschner
  Mit Zitat antworten Zitat