第11章+工具状态栏与多选项卡

《第11章+工具状态栏与多选项卡》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、上章回顾：菜单主菜单快捷菜单第11章工具状态栏与多选项卡本章要点：工具栏状态栏PageControl11.1循序渐进学理论随着Windows操作系统风行世界，各种基于Windows的应用程序及各类娱乐软件也日益为人们所熟悉。这些软件的共同特点之一就是都包含了工具栏和状态栏及其多项选项卡。目前大部分Windows应用程序中，含有工具栏和状态栏己形成了一种常规。工具栏一般位于窗口的项部，状态栏一般位于窗口的底部，用于显示当前的状态及一些提示信息11.1工具栏用面板构成工具栏使用工具栏组件设计工具栏使用CoolBa

2、r组件设计工具栏使用控件栏组件设计工具栏状态栏设计1、工具栏的设计方法用面板构成工具栏工具栏用于实现具体的功能实现，一般是通过面板组件和快捷按钮组件进行设计。快捷按钮快捷按钮(SpeedButton)在组件板的[Additional]选项卡上，默认形状为正方形，当然也可以改变它的形状和大小。快捷按钮的常用属性：Caption属性：用于设置快捷按钮表面所显示的文本。Glyph属性：用于设置快捷按钮表面的位图。GroupIndex属性：通过设置GroupIndex属性，可以像使用复选框或单选按钮那样来使用快捷按钮。按下某个按

3、钮时，只有被选择的按钮处于按下状态。而其他的快捷按钮均处于弹起状态，就应将这一组快捷按钮的GroupIndex属性赋予相同的值。该值不能和其他组的GroupIndex值相冲突。要使某按钮被选中时保持按下状态应给该按钮的GroupIndex属性赋予一个大于0的整数值。否则在松开按钮后，它也会自动弹起。Hint属性：用于设置快捷按钮的提示功能及在状态栏所显示的文本。Layout属性：用于设置快捷按钮表面的文本和位图的显示风格。Down属性：用于判断快捷按钮是否处于被按下状态。AllowAllUp属性：将快捷按钮的AllowA

4、llUp属性设为True时，当单击处于按下状态的该快捷按钮时，它可恢复弹起状态。当在设置某个快捷按钮的AllowAllup属性时，其他与该按钮的GroupIndex属性值相同的快捷按钮的AllowAllUp属性也会发生相同的变化。面板面板是一个容器型的组件，在面板上可以放置其他组件(包括面板组件)。所有放置在面板上的组件都以面板为父组件。在工具栏设计中一般将面板的Align属性设为alTop，使面板与窗体的顶部对齐。用面板构成工具栏在面板上放置一些快捷按钮可构成工具栏设计过程为窗体添加一个面板组件在面板中放置三个小面板，

5、用以对快捷按钮按菜单划分。在小面板上放置快捷按钮等组件。链接工具栏与菜单的OnClick事件编写事件响应代码【例11-1】用面板和快捷按钮建立工具栏设计界面procedureTForm1.newClick(Sender:TObject);beginmemo1.Clear;end;procedureTForm1.openClick(Sender:TObject);beginwithopendialog1doifexecutethenmemo1.Lines.LoadFromFile(filename);end;procedu

6、reTForm1.saveClick(Sender:TObject);beginwithsavedialog1doifexecutethenmemo1.Lines.savetoFile(filename);end;procedureTForm1.cutClick(Sender:TObject);beginifmemo1.SelLength>0thenmemo1.CutToClipboard;end;procedureTForm1.quitClick(Sender:TObject);beginclose;end;proce

7、dureTForm1.copyClick(Sender:TObject);beginifmemo1.SelLength>0thenmemo1.copyToClipboard;end;procedureTForm1.pastClick(Sender:TObject);beginmemo1.PasteFromClipboard;end;procedureTForm1.fontClick(Sender:TObject);beginiffontdialog1.executethenmemo1.Font:=fontdialog1.

8、Font;end;procedureTForm1.colorClick(Sender:TObject);beginifcolordialog1.executethenmemo1.color:=colordialog1.color;end;procedureTForm1.N16Click(Sender:TObject)