ToolButtons einer ToolBar "verschieben"

[Uwe Raabe]

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.