[delphi] creare toolbar con relativi pulsanti a runtime

[maffio]

private
{ Private declarations }
ToolBar: TToolBar;
ToolButton: TToolButton;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
// creai toolbar
ToolBar := TToolBar.Create(Nil);
TabSheet1.InsertControl(ToolBar);

// crei un pulsante dentro la toolbar
ToolButton := TToolButton.Create(ToolBar);
ToolButton.Parent := ToolBar;
end;