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

[Luki206]

Ich muss mich hier noch einmal melden Jetzt stehe ich vor dem Problem das wenn ich die Form resizee bleiben die Buttons so in der Scrollbox wie sie auch erstellt wurden. Wie könnte ich es schaffen sie auszurichten ohne das sie ständig neu generiert werden müssen?
Danke
Luki

[himitsu]

Wie würstest du das denn machen, wenn du die Form im Form-Designer zusammenklicks?

Anchor, Align, usw.

[Luki206]

Das mit den Anchors haut nicht hin weil ich dann nicht mehr scrollen kann und Align geht auch nicht weil ich ja nicht alle Buttons übereinander legen will. Und die buttons sollen ja auch 'nachrücken' wenn in einer Zeile ein weiterer Button reinpassen würde.