Zur Laufzeit Comboboxen hinzufügen

[Dennis07]

Jede Komponente hat FreeNotifications, die sie u.a. an diejenigen Komponenten versendet, die sie als Besitzer festgelegt haben.
Wenn eine Komponente zerstört wird, werden deren Subkomponenten, die in einer (eigentlich zwei) Komponentenlisten gespeichert sind, automatisch freigegeben. Nicht zu verwechseln ist dies mit den eingebetteten Steuerelementen, die in TList<TControl> gespeichert werden; diese haben nichts damit zu tun.

[himitsu]

siehe TComponentList (unit Contnrs)

Eine TList, die ein Dummy-TComponent drinnen hat oder die selbst ein TComponent ist, über dessen TComponent.Notification beim opRemove es das jeweilige Objekt aus der Liste löscht.
TList.Notify bei lnAdded via TComponent.FreeNotification registrieren und beim lnExtracted/lnDeleted via TComponent.RemoveFreeNotification deregistrieren. (wer bei wem ist egal, da alles gegenseitig)

Delphi-Quellcode:

procedure TComponentListDummy.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if Operation = opRemove then
    Parent.Extract(AComponent);  // Item aus Liste entfernen, ohne enthaltenes Objekt (nochmal) freizugeben
  inherited;
end;

procedure TComponentList.Notify(Ptr: Pointer; Action: TListNotification);
begin
  if Assinged(Ptr) then
    case Action of
      lnAdded:
        TComponent(Ptr).FreeNotification(FDummy);
      lnExtracted, lnDeleted:
        TComponent(Ptr).RemoveFreeNotification(FDummy);
    end;
  inherited;
end;

Nochmal als Beispiel mit einem Property:

Delphi-Quellcode:

type
  TDemo = class(TComponent)
  private
    FLink: TComponent;
    procedure SetLink(Value: TComponent);
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  public
    property Link: TComponent read FLink write SetLink;
  end;

procedure TDemo.SetLink(Value: TComponent);
begin
  if Assigned(FLink) then
    Self.RemoveFreeNotification(FLink);  // oder FLink.RemoveFreeNotification(Self);
  FLink := Value;
  if Assigned(FLink) then
    Self.FreeNotification(FLink);
end;

procedure TDemo.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;
  if Operation = opRemove then begin
    if FLink = AComponent then
      FLink := nil;
  end;
end;

[jus]

Zitat:

Zitat von himitsu (Beitrag 1457779)

siehe TComponentList (unit Contnrs)
...

Delphi-Quellcode:

procedure TComponentListDummy.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if Operation = opRemove then
    Parent.Extract(AComponent);  // Item aus Liste entfernen, ohne enthaltenes Objekt (nochmal) freizugeben
  inherited;
end;

procedure TComponentList.Notify(Ptr: Pointer; Action: TListNotification);
begin
  if Assinged(Ptr) then
    case Action of
      lnAdded:
        TComponent(Ptr).FreeNotification(FDummy);
      lnExtracted, lnDeleted:
        TComponent(Ptr).RemoveFreeNotification(FDummy);
    end;
  inherited;
end;

....

@himitsu: vielen Dank für die Erklärung! Hat bei mir eine Weile gedauert, bis ich verstanden habe, dass dein Code nur zur Erklärung dient und bereits implizit im TComponentList enthalten ist. :oops: Sprich, man muß sich normalerweise bei TComponentList nicht mehr um das Entfernen aus der TComponentList kümmern, wenn eine Komponente freigegeben wird.

Vielleicht auch für den TE oder andere interessant, aufbauend auf den Beitrag #8 von KodeZwerg ein Beispiel mit TComponentList:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
    ComponentList: TComponentList;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  cb: TComboBox;
begin
  cb := TComboBox.Create(self);
  cb.Parent := self;
  cb.Top := (ComponentList.Count * (cb.Height + 3));
  // weitere eigenschaften setzen
  cb.Items.Add(DateTimeToStr(now));   // mit irgendein Text blabla Text füllen
  cb.ItemIndex := 0;
  ComponentList.Add(cb);
  Caption := 'ComponentList: ' + IntToStr(ComponentList.Count);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  cb: TComboBox;
begin
  if ComponentList.Count > 0 then
  begin
    cb := TComboBox(ComponentList[ComponentList.Count-1]);
    cb.Free;
    Caption := 'ComponentList: ' + IntToStr(ComponentList.Count);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComponentList := TComponentList.Create;
  Caption := 'ComponentList: ' + IntToStr(ComponentList.Count);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ComponentList.Free;
end;

end.

[KodeZwerg]

Danke an himitsu und jus für den Component-Notify tipp/Beispiel-Code, ich werde übers Wochenende mal 'ne kleine DynamicControls unit erschaffen :-)