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

[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;