Control mit Subcontrols designen

[kolbaschedder]

Delphi-Quellcode:

unit Containerdemo;

interface
 uses  sysUtils, stdCtrls, extCtrls,  classes ;

type tContainerDemo = class(TPanel)
  private
    fEdit : tEdit;
  public
    constructor Create(Aowner : Tcomponent);override;
    destructor Destroy;override;
  published
    property edit : tEdit read fEdit write fEdit;
  end;


procedure Register;
implementation
procedure Register;
begin
  registerComponents('demo', [tContainerDemo]);
end;

constructor tContainerDemo.Create(Aowner : Tcomponent);
begin
  inherited;
  fEdit := TEdit.Create(Aowner);
  fEdit.Parent := self;
  fEdit.Name := 'CD_Edit';
  fEdit.Top := 0;
  fEdit.width := self.Width ;
end;

destructor tContainerDemo.Destroy;
begin
  fEdit.Free;
  inherited;
end;

end.

funktioniert bei mir.
mit "fEdit.Name" musst du aufpassen, da der Name Eindeutig oder leer sein muss.

MfG

Kolbaschedder