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