Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Toolbutton in ToolBar zur Laufzeit einfügen; Delphi 6.0


kehrer - Sa 24.07.10 13:55
Titel: Toolbutton in ToolBar zur Laufzeit einfügen; Delphi 6.0
Das geht nach meinen bisherigen Recherchen nur über TToolBar.InsertControl
Dann ist der neue Botton aber in der Toolbar ganz links.
Wie kann ich zur Laufzeit einen ToolButton einfügen und bestimmen, wo er in der Toolbar erscheint?


Xion - So 25.07.10 08:38

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
var Btn: TButton;

procedure CreateNewButton;
begin
  Btn:=TButton.Create(ToolBar1);
  Btn.Parent:=ToolBar1; //auf Toolbar platzieren
  Btn.Left:=Btn.Left+Btn.Width+1;  //um 1 nach rechts verschieben
end;


Ich hab einfach mal zur Entwurfszeit Buttons drauf platziert und sie dann angeordnet, da habe ich gemerkt, dass ToolBar ein Raster intern hat. Du musst also beim verschieben nur darauf achten, dass du die Rastergrenze überschreitest, dann wird er automatisch in die nächste Zelle verschoben.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!