第11章 工具状态栏和多选项卡.pptVIP

第11章 工具状态栏与多选项卡 上章回顾： ?菜单 ?主菜单 ?快捷菜单 本章要点： ?工具栏 ? 状态栏 ? PageControl 11.1 循序渐进学理论 随着Windows操作系统风行世界，各种基于Windows的应用程序及各类娱乐软件也日益为人们所熟悉。这些软件的共同特点之一就是都包含了工具栏和状态栏及其多项选项卡。 11.1 工具栏 目前大部分Windows应用程序中，含有工具栏和状态栏己形成了一种常规。 工具栏一般位于窗口的项部，状态栏一般位于窗口的底部，用于显示当前的状态及一些提示信息 1 、工具栏的设计方法 用面板构成工具栏 使用工具栏组件设计工具栏 使用CoolBar组件设计工具栏 使用控件栏组件设计工具栏 状态栏设计 用面板构成工具栏 工具栏用于实现具体的功能实现，一般是通过面板组件和快捷按钮组件进行设计。 快捷按钮 快捷按钮(SpeedButton)在组件板的[Additional]选项卡上，默认形状为正方形，当然也可以改变它的形状和大小。 快捷按钮的常用属性： Caption属性：用于设置快捷按钮表面所显示的文本。 Glyph属性：用于设置快捷按钮表面的位图。 GroupIndex属性：通过设置GroupIndex属性，可以像使用复选框或单选按钮那样来使用快捷按钮。 按下某个按钮时，只有被选择的按钮处于按下状态。 而其他的快捷按钮均处于弹起状态，就应将这一组快捷按钮的GroupIndex属性赋予相同的值。 该值不能和其他组的GroupIndex值相冲突。 要使某按钮被选中时保持按下状态应给该按钮的GroupIndex属性赋予一个大于0的整数值。否则在松开按钮后，它也会自动弹起。 Hint属性：用于设置快捷按钮的提示功能及在状态栏所显示的文本。 Layout属性：用于设置快捷按钮表面的文本和位图的显示风格。 Down属性：用于判断快捷按钮是否处于被按下状态。 AllowAllUp属性：将快捷按钮的AllowAllUp属性设为True时，当单击处于按下状态的该快捷按钮时，它可恢复弹起状态。 当在设置某个快捷按钮的AllowAllup属性时，其他与该按钮的GroupIndex属性值相同的快捷按钮的AllowAllUp属性也会发生相同的变化。 面板 面板是一个容器型的组件，在面板上可以放置其他组件(包括面板组件)。 所有放置在面板上的组件都以面板为父组件。 在工具栏设计中一般将面板的Align属性设为alTop，使面板与窗体的顶部对齐。 用面板构成工具栏 在面板上放置一些快捷按钮可构成工具栏 设计过程 为窗体添加一个面板组件 在面板中放置三个小面板，用以对快捷按钮按菜单划分。 在小面板上放置快捷按钮等组件。 链接工具栏与菜单的OnClick事件 编写事件响应代码 【例11-1】用面板和快捷按钮建立工具栏 设计界面 procedure TForm1.newClick(Sender: TObject); begin memo1.Clear; end; procedure TForm1.openClick(Sender: TObject); begin with opendialog1 do if execute then memo1.Lines.LoadFromFile(filename); end; procedure TForm1.saveClick(Sender: TObject); begin with savedialog1 do if execute then memo1.Lines.savetoFile(filename); end; procedure TForm1.cutClick(Sender: TObject); begin if memo1.SelLength0then memo1.CutToClipboard; end; procedure TForm1.quitClick(Sender: TObject); begin close; end; procedure TForm1.copyClick(Sender: TObject); begin if memo1.SelLength0then memo1.copyToClipboard; end; procedure TForm1.pastClick(Sender: TObject); begin memo1.PasteFromClipboard; end; procedure TForm1.fontClick(Sender: TObject); begin if fontdialog1.execute then memo1.Fon