工具状态栏与多选项卡
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
✓AllowAຫໍສະໝຸດ BaidulUp属性：将快捷按钮的AllowAllUp 属性设为True时，当单击处于按下状态的该 快捷按钮时，它可恢复弹起状态。
当在设置某个快捷按钮的AllowAllup属性 时，其他与该按钮的GroupIndex属性值相 同的快捷按钮的AllowAllUp属性也会发生 相同的变化。
➢面板
钮按菜单划分。 ➢在小面板上放置快捷按钮等组件。 ➢链接工具栏与菜单的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.SelLength>0then memo1.CutToClipboard; end;
第11章 工具状态栏与多选项卡
上章回顾： 菜单 主菜单 快捷菜单
11.1 工具栏
目前大部分Windows应用程序中，含有工具栏 和状态栏己形成了一种常规。
工具栏一般位于窗口的项部，状态栏一般位 于窗口的底部，用于显示当前的状态及一些 提示信息
1 、工具栏的设计方法
用面板构成工具栏 使用工具栏组件设计工具栏 使用CoolBar组件设计工具栏 使用控件栏组件设计工具栏 状态栏设计
用面板构成工具栏 工具栏用于实现具体的功能实现，一般
是通过面板组件和快捷按钮组件进行设计。
➢快捷按钮
快捷按钮(SpeedButton)在组件板的 [Additional]选项卡上，默认形状为正方形， 当然也可以改变它的形状和大小。
➢快捷按钮的常用属性：
✓Caption属性：用于设置快捷按钮表面 所显示的文本。
procedure TForm1.ComboBox1Change(Sender: TObject); begin memo1.Font.Name:=combobox1.Text; end;
procedure TForm1.ComboBox2Change(Sender: TObject); begin memo1.Font.Size:=strtoint(combobox2.Text); end;
✓Glyph属性：用于设置快捷按钮表面的 位图。
✓GroupIndex属性：通过设置GroupIndex属性， 可以像使用复选框或单选按钮那样来使用快捷 按钮。
按下某个按钮时，只有被选择的按钮处于按 下状态。
而其他的快捷按钮均处于弹起状态，就应将 这一组快捷按钮的GroupIndex属性赋予相同 的值。
procedure TForm1.colorClick(Sender: TObject); begin if colordialog1.execute then memo1.color:=colordialog1.color; end;
procedure TForm1.N16Click(Sender: TObject); begin messagedlg('欢迎使用本软件',mtinformation,[mbok],0) ; end;
用工具栏组件构成工具栏
Delphi提供了新的工具栏(ToolBar)组件， 位于组件板的[Win32]选项卡上，可用来直接创 建工具栏。
➢主要属性有：
✓EdgeBorders属性：该属性设置工具栏的 边界，有四个属性值；
ebLeft(左边界)、ebTop(上边界)、
ebRight(右边界)、ebBottom(底边界)
✓面板是一个容器型的组件，在面板上可 以放置其他组件(包括面板组件)。
✓所有放置在面板上的组件都以面板为父 组件。
✓在工具栏设计中一般将面板的Align属性 设为alTop，使面板与窗体的顶部对齐。
➢用面板构成工具栏 在面板上放置一些快捷按钮可构成工具栏 设计过程 ➢为窗体添加一个面板组件 ➢在面板中放置三个小面板，用以对快捷按
该值不能和其他组的GroupIndex值相冲突。
要使某按钮被选中时保持按下状态应给该按 钮的GroupIndex属性赋予一个大于0的整数 值。否则在松开按钮后，它也会自动弹起。
✓Hint属性：用于设置快捷按钮的提示功能及 在状态栏所显示的文本。
✓Layout属性：用于设置快捷按钮表面的文本 和位图的显示风格。 Down属性：用于判断快 捷按钮是否处于被按下状态。
✓Flat属性：该属性用来设置工具栏上的按 钮的显示效果
✓Grouped属性：该属性用来设置工具栏上 的相邻按钮为一组，同组中的按钮为单选
procedure TForm1.quitClick(Sender: TObject); begin close; end; procedure TForm1.copyClick(Sender: TObject); begin if memo1.SelLength>0then memo1.copyToClipboard; end; procedure TForm1.pastClick(Sender: TObject); begin memo1.PasteFromClipboard; end; procedure TForm1.fontClick(Sender: TObject); begin if fontdialog1.execute then memo1.Font:=fontdialog1.Font; end;
当在设置某个快捷按钮的AllowAllup属性 时，其他与该按钮的GroupIndex属性值相 同的快捷按钮的AllowAllUp属性也会发生 相同的变化。
➢面板
钮按菜单划分。 ➢在小面板上放置快捷按钮等组件。 ➢链接工具栏与菜单的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.SelLength>0then memo1.CutToClipboard; end;
第11章 工具状态栏与多选项卡
上章回顾： 菜单 主菜单 快捷菜单
11.1 工具栏
目前大部分Windows应用程序中，含有工具栏 和状态栏己形成了一种常规。
工具栏一般位于窗口的项部，状态栏一般位 于窗口的底部，用于显示当前的状态及一些 提示信息
1 、工具栏的设计方法
用面板构成工具栏 使用工具栏组件设计工具栏 使用CoolBar组件设计工具栏 使用控件栏组件设计工具栏 状态栏设计
用面板构成工具栏 工具栏用于实现具体的功能实现，一般
是通过面板组件和快捷按钮组件进行设计。
➢快捷按钮
快捷按钮(SpeedButton)在组件板的 [Additional]选项卡上，默认形状为正方形， 当然也可以改变它的形状和大小。
➢快捷按钮的常用属性：
✓Caption属性：用于设置快捷按钮表面 所显示的文本。
procedure TForm1.ComboBox1Change(Sender: TObject); begin memo1.Font.Name:=combobox1.Text; end;
procedure TForm1.ComboBox2Change(Sender: TObject); begin memo1.Font.Size:=strtoint(combobox2.Text); end;
✓Glyph属性：用于设置快捷按钮表面的 位图。
✓GroupIndex属性：通过设置GroupIndex属性， 可以像使用复选框或单选按钮那样来使用快捷 按钮。
按下某个按钮时，只有被选择的按钮处于按 下状态。
而其他的快捷按钮均处于弹起状态，就应将 这一组快捷按钮的GroupIndex属性赋予相同 的值。
procedure TForm1.colorClick(Sender: TObject); begin if colordialog1.execute then memo1.color:=colordialog1.color; end;
procedure TForm1.N16Click(Sender: TObject); begin messagedlg('欢迎使用本软件',mtinformation,[mbok],0) ; end;
用工具栏组件构成工具栏
Delphi提供了新的工具栏(ToolBar)组件， 位于组件板的[Win32]选项卡上，可用来直接创 建工具栏。
➢主要属性有：
✓EdgeBorders属性：该属性设置工具栏的 边界，有四个属性值；
ebLeft(左边界)、ebTop(上边界)、
ebRight(右边界)、ebBottom(底边界)
✓面板是一个容器型的组件，在面板上可 以放置其他组件(包括面板组件)。
✓所有放置在面板上的组件都以面板为父 组件。
✓在工具栏设计中一般将面板的Align属性 设为alTop，使面板与窗体的顶部对齐。
➢用面板构成工具栏 在面板上放置一些快捷按钮可构成工具栏 设计过程 ➢为窗体添加一个面板组件 ➢在面板中放置三个小面板，用以对快捷按
该值不能和其他组的GroupIndex值相冲突。
要使某按钮被选中时保持按下状态应给该按 钮的GroupIndex属性赋予一个大于0的整数 值。否则在松开按钮后，它也会自动弹起。
✓Hint属性：用于设置快捷按钮的提示功能及 在状态栏所显示的文本。
✓Layout属性：用于设置快捷按钮表面的文本 和位图的显示风格。 Down属性：用于判断快 捷按钮是否处于被按下状态。
✓Flat属性：该属性用来设置工具栏上的按 钮的显示效果
✓Grouped属性：该属性用来设置工具栏上 的相邻按钮为一组，同组中的按钮为单选
procedure TForm1.quitClick(Sender: TObject); begin close; end; procedure TForm1.copyClick(Sender: TObject); begin if memo1.SelLength>0then memo1.copyToClipboard; end; procedure TForm1.pastClick(Sender: TObject); begin memo1.PasteFromClipboard; end; procedure TForm1.fontClick(Sender: TObject); begin if fontdialog1.execute then memo1.Font:=fontdialog1.Font; end;