Objekte zur Laufzeit erzeugen

[DeddyH]

Wieso denn nicht?

[edit]

Delphi-Quellcode:

type
  TPanel = class(ExtCtrls.TPanel)
  private
    FButtons: TObjectList;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure AddButtons(CountButtons: Cardinal; ClickEvent: TNotifyEvent);
  end;

wird zu

Delphi-Quellcode:

type
  TScrollBox = class(Forms.TScrollBox)
  private
    FButtons: TObjectList;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure AddButtons(CountButtons: Cardinal; ClickEvent: TNotifyEvent);
  end;

Fluppt auf Anhieb bei mir. [/edit]