Toolbutton in ToolBar zur Laufzeit einfügen; Delphi 6.0

kehrer · Hält's aus hier Beiträge: 7

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 · Verfasst: So 25.07.10 08:38

markieren

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.

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme