Die Reihenfolge der Buttons ergibt sich aus deren Position. Mit folgendem Code kannst du alle Buttons einer Toolbar unter Beibehaltung der Reihenfolge an eine andere Toolbar anhängen.
Delphi-Quellcode:
var
i: Integer;
L: Integer;
tb: TToolButton;
begin
while ToolBar2.ButtonCount > 0 do begin
tb := ToolBar2.Buttons[0]; // immer den ersten Button
if ToolBar1.ButtonCount = 0 then begin
L := 0;
end
else begin
L := ToolBar1.Buttons[ToolBar1.ButtonCount - 1].BoundsRect.Right + 1; // rechts vom letzten Button
end;
tb.Parent := nil; // damit das nachfolgende Setzen von Left auch klappt
tb.Left := L;
tb.Parent := ToolBar1;
end;
end;
Du kannst natürlich auch nur einzelne Buttons übertragen, musst aber berücksichtigen, dass sich der Index aller nachfolgenden Buttons beim Herauslösen eines Buttons aus der Quell-Toolbar ändern.