TToolbar --> Buttons nur zur Design-Time hinzufügbar?

[mirage228]

Hallo,

ich wollte in meinem Programm zur Laufzeit einen TToolButton in meine TToolbar einfügen. Jedoch stellt TToolBar dazu keine Methoden zur verfügung lediglich die Array Eigenschaft, die auch nur Read-Only ist.
Geht das hinzufügen zur Laufzeit tatsächlich nicht oder hab ichs nur nich gefunden?

mfG
mirage228

[MrKnogge]

Servus !

Was zur Entwurfszeit machbar ist, muss auch zur Laufzeit machbar sein:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ToolBar1 : TToolBar;
  ToolButton1 : TToolButton;
begin
  ToolBar1 := TToolBar.Create(Form1);
  ToolBar1.Parent := Form1;
  ToolButton1 := TToolButton.Create(ToolBar1);
  ToolButton1.Parent := ToolBar1;
end;