如何用程序动态创建工具条按钮。。。

Question

如题：如何在工具条中增加按钮，并指定按钮顺序。
     如：从数据库中读取记录字段：'button1','button2','button'。要求按钮顺序是button1,button2,button3.  并请教如何动态清除工具条上的按钮。(包括释放按钮)
我用如下程序构建工具按钮，但显示结果是:button3,button2,button1
while not eof do
begin
   toolbtn:=TToolButton.Create(Toolbar);
   toolbtn.name:=query1.FieldByName('Name');
   toolbtn.Caption:=query1.FieldByName('Caption');
   toolbtn.parent:=toolbar;
  end;
请问应如何改善代码？？？        在此先谢了。。

Answer 1

var
  Form1: TForm1;
  myBtns: array[1..3] of TToolButton; //必须是全局变量，不能是局部变量
                                      //否则函数或过程退出时就自动释放了implementation{$R *.dfm}//创建
procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
 for i:=low(myBtns) to high(myBtns) do
 begin
  myBtns[i]:=TToolButton.Create(Form1);
  myBtns[i].Name:='MyToolButton'+IntToStr(i);
  myBtns[i].Parent:=ToolBar1;
 end;
end;//释放
procedure TForm1.Button2Click(Sender: TObject);
var
 i: Integer;
begin
 for i:=low(myBtns) to high(myBtns) do
  myBtns[i].Free;
end;

Answer 2

请问是通过设置toolbrn的parent属性来把toolbtn作为toolbar的按钮吗？有什么更好的办法来设定？？象items.add()   之类的？？？有吗？

Answer 3

但过来是可以，但总觉得。应该如何设置toolbar及toolbtn 的属性？？？

Answer 4

象items.add()   之类的？？？有吗？应该有的toolbar没看过，但我知道statusbar里每段就是个panel,也许toolbar的每段也是用panel或section来控制的。