Objektbehandlung

[Ginko]

Hallo, ich hätte mal eine allgemeine Frage zur Objektbehandlung.
Also wenn ich zum Beispiel ein Objekt erzeugen will, welches aus einer Listbox und einem Edit-Feld besteht, welches z.B. dazu dient die einzelnen Zeilen in der Listbox anzuwählen, wie geht man da am besten vor ?
Ich habe mal zwei Beispile gemacht, wobei das 2te ja sehr viel umständlicher ist. Aber kann man das erste ohne bedenken holen, da ja ein zweites Objekt vom ersten erszeugt wird?

Delphi-Quellcode:

1.
type
  TMyList = class(TListBox)
  private
    fAuswahl: TEdit;
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

constructor TMyList.Create;
begin
  inherited;
  Parent := AOwner as TWinControl;

  fAuswahl := TEdit.Create(AOwner);
  with fAuswahl do
  begin
    Parent :=  AOwner as TWinControl;
    Left := 130;
  end;
end;

Delphi-Quellcode:

2.
type
  TMyEdit = class(TEdit)
  public
    constructor Create(AOwner: TComponent); override;
  end;

  TMyList = class(TListBox)
  private
    fAuswahl: TMyEdit;
  public
    constructor Create(AOwner: TComponent; InAuswahl: TMyEdit); reintroduce;
  end;

implementation

constructor TMyEdit.Create;
begin
  inherited;
  Parent := AOwner as TWinControl;
  Left := 130;
end;

constructor TMyList.Create;
begin
  inherited Create(AOwner);
  Parent := AOwner as TWinControl;
  fAuswahl := InAuswahl;
end;

[schlecki]

dein 2. Beispiel geht nicht, wenn du deine Elemente mit dem GUI-Editor bearbeiten willst, da dieser nur den Standard-Konstruktor kennt und deinen deshalb nicht aufruft.

Alternativ würde ich noch sowas machen:

Delphi-Quellcode:

  TMyList = class(TListBox) 
  private 
    fAuswahl: TMyEdit; 
  public 
    constructor Create(AOwner: TComponent); reintroduce; 
  published
    property Auswahl: TMyEdit read FAuswahl write SetAuswahl;
  end;

Das kannst du dann bedenkenlos nach dem Erzeugen selbst setzen, oder wenn du deine Komponenten in einem Package in der IDE installierst, sollte es auch im Objektinspektor angezeigt werden. (Im Prinzip genau so wie bei TDataSource => TQuery u.a.)

[Muetze1]

Dann wird er immernoch nicht aufgerufen. Die Constructoren sind nicht umsonst virtuell...

[Ginko]

Danke für die Antworten.
Auf das GUI kann ich eigentlich verzichten, ich denke ich bleibe dann bei meiner ersten Lösung.