怎样在ToolBar上动态添加按钮？并且添加的按钮要在已经存在的按钮的右边？（内空）急！！！！！

Question

右键点，TOOLBAR有菜单，选NEW BUTTON就OK了

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  tb:TToolButton;
begin
  tb:=TToolButton.Create(self);
  tb.Parent:=ToolBar1;
end;

Answer 2

很容易
var
  tb: TToolButton;
  I: Integer;
begin
  for I := 1 to 10 do
  begin
    Tb := TToolButton.Create(ToolBar1);
    Tb.Parent := ToolBar1;
    Tb.Caption := 'Button'+IntToStr(I);
    Tb.Left := -10;
  end;
end;
给分吧

Answer 3

to superatom,我试了一下，好象Tb.Left:=-10有点问题!
var
  tb: TToolButton;
  I: Integer;
begin
  for I := 1 to 10 do
  begin
    Tb := TToolButton.Create(ToolBar1);
    Tb.Parent := ToolBar1;
    Tb.Caption := 'Button'+IntToStr(I);
    Tb.Left := ToolBar1.Buttons[ToolBar1.ButtonCount-1].Left+
      ToolBar1.Buttons[ToolBar1.ButtonCount-1].Width;
  end;
end;

Answer 4

要求toolbutton的index属性和显示的位置一样，每次insert 或是设置parent都加在前面，因为index属性是只读的，除非将button倒着放入，既先放最后一个。有没有更好的办法？

Answer 5

to   superatom(超级原子)　tp168(tp168)　谢谢你们用你们说的方法解决了。太感谢了。