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]

[Luki206]

Bei mir nicht... Forms wird nicht erkannt, was muss diesmal in die uses?

[Sir Rufo]

Zitat von Luki206:

Bei mir nicht... Forms wird nicht erkannt, was muss diesmal in die uses?

Delphi-Quellcode:

uses
  Forms;

bzw.

Delphi-Quellcode:

uses
  Vcl.Forms;

Und von Dokumentation hast du auch nichts gehört?
TScrollBox

[DeddyH]

Zur Not eine ScrollBox aufs Form klatschen und STRG-F9 drücken, die fehlenden Units fügt Delphi dann ganz automatisch hinzu.

[Luki206]

Ja das habe ich mir auch gedacht. Die uses VCL.Forms war auch von Anfang an eingebunden nur bekomme ich trotzdem den Fehler

[DeddyH]

Delphi-Quellcode:

type
  TScrollBox = class(VCL.Forms.TScrollBox)

[Luki206]

Ahhh, es war das Vcl. ... Danke