Create TToolbutton runtime

Question

I have a problem with creating TToolbuttons at runtime and how they appear in my TToolbar.

Basically I got a toolbar with some buttons in i

Answer 1

You can use the left property of the TToolButton component

check this sample

//adding buttons to the end  of the ToolBar.
procedure TForm1.Button1Click(Sender: TObject);
var
 Toolbutton : TToolButton;
begin
   Toolbutton :=TToolButton.Create(ToolBar1);
   Toolbutton.Parent  := ToolBar1;
   Toolbutton.Caption := IntToStr(ToolBar1.ButtonCount);
   Toolbutton.Left    := ToolBar1.Buttons[ToolBar1.ButtonCount-1].Left + ToolBar1.ButtonWidth;
end;