ToolButton - Größe zur Laufzeit einstellen?

[MarLe]

Hallo,

Mit folgender Procedure erstelle ich einige ToolButtons
auf einer ToolBar.
Wie kann ich die Größe der Buttons beeinflussen???
Irgendeine Eigenschaft blockiert anscheinend .Widht/.Height

Delphi-Quellcode:

procedure TForm1.TBCreateClick(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.Width := 35;       // wirkt sich nicht aus
    TB.Height := 35;      // ???
    //TB.AutoSize := False;
    TB.Caption := IntToStr(i);
    TB.ShowHint := True;
    TB.Hint := 'Button ' + IntToStr(i);
    TB.style := tbsButton;
  end;
end;

Gruss MarLe

[Techcrawler]

Ich kenne den TToolButton nicht, aber es könnte sein, dass du ein
TB.AutoSize := false;
einfügen musst.

[uwewo]

Ist doch klar, Du mußt die Breite und Höhe in der ToolBar eingeben.

Delphi-Quellcode:

ToolBar.ButtonHeight := 35;
ToolBar.ButtonWidth := 35;

[MarLe]

Danke, das hatte ich auch schon probiert.

Das Ganze funktioniert bei den ToolButtons die ich während der Entfwurfszeit
angelegt habe problemlos. Bei meinen zur Laufzeit erstellten Buttons
rührt sich aber nicht's.

Ich will eigentlich zur Laufzeit mehrere ToolButtons erstellen die sich
der Größe (Höhe) der ToolBar anpassen. Bei mir sind jetzt die ToolButtons
wesentlich kleiner als die ToolBar.

[uwewo]

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.

[MarLe]

Jetzt funktioniert's.
Wenn bei der ToolBar ShowCaptions auf True steht geht's nicht?!?

Was auch komisch ist dass bei mehreren Buttons (z.B. 30) nicht korrekt
innerhalb der Grenzen der ToolBar die Buttons angeordnet werden.
z.B. bei drei Reihen bleiben bei der zweiten und dritten Reihen Lücken.
Verschiebe ich dann die Formgröße wird "wild" angeordnet?!?