标签:工具栏 用户界面 窗体 按钮 组件 end ToolBar 属性
工具栏组件(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组件按钮的样式
标签:工具栏,用户界面,窗体,按钮,组件,end,ToolBar,属性 来源: https://www.cnblogs.com/fansizhe/p/12769427.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。