Einzelnen Beitrag anzeigen

jus

Registriert seit: 22. Jan 2005
343 Beiträge
 
Delphi 2007 Professional
 
#33

AW: Zur Laufzeit Comboboxen hinzufügen

  Alt 20. Feb 2020, 19:28
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. 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.
Angehängte Dateien
Dateityp: zip TComponentListDemo.zip (4,0 KB, 6x aufgerufen)
  Mit Zitat antworten Zitat