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.