Also bei mir funktioniert das
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
TB: TToolButton;
i: integer;
begin
for i := StrToInt(Edit1.Text) downto 1 do
begin
TB := TToolbutton.Create(self);
TB.Parent := ToolBar;
TB.Caption := IntToStr(i);
TB.ShowHint := True;
TB.Hint := 'Button ' + IntToStr(i);
TB.style := tbsButton;
end;
ToolBar.ButtonHeight := 35;
ToolBar.ButtonWidth := 35;
end;
Und bei Dir sicher auch.
Außerdem muß Du noch im
OI die ToolBar auf AutoSize setzen.