工具栏组件（TToolBar）为用户提供了应用程序中最常用的菜单命令的快速访问方式，通常在在菜单栏的下方。

1、开始使用工具栏会出现几个常见的问题，

（1）窗体上添加ToolBar组件后，工具栏上添加按钮，然后修改按钮Caption属性，运行会发现按钮的Captions并没有显示出来。

（2）如果在ToolBar组件上添加太多的按钮，运行时会发现按钮显示不全或者出现ToolBar组件变多行的情况。

方法：

（1）修改ToolBar组件的ShowCaptions属性为True。

（2）将ToolBar组件的AutoSize属性和Wrapable属性设置为True，AutoSize属性控制了ToolBar的大小，Wrapable属性控制了ToolBar的是否折行。

 

2、在ToolBar上实现翻页箭头，如图：

窗体上添加PageScroller组件，设置AutoScroll属性值为True，将ToolBar放在在上面，设置ToolBar组建的AutoSize属性为True，Align属性为None，Wrapable属性为False。

 

 

 3、为工具栏设置响应代码

ToolBar中的按钮事件使用与平常按钮相同，试想在每个按钮点击事件中都添加响应代码会不会比较傻。我们可以在第一个组件的点击事件中添加代码：

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  case (Sender as TToolButton).index of
    0:begin
      ShowMessage('1');
    end;
    1:begin
      ShowMessage('2');
    end;
    2:begin
      ShowMessage('3');
    end;
  end
end;

然后将其他两个按钮的单击事件设置成按钮1的单击事件

 

 

4、设置ToolBar组件按钮的样式