第04章 菜单、工具栏和对话框.ppt

《第04章 菜单、工具栏和对话框.ppt》由会员分享，可在线阅读，更多相关《第04章 菜单、工具栏和对话框.ppt（27页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 Delphi Delphi 程序设计程序设计程序设计程序设计主讲：陈强主讲：陈强南昌理工学院计算机系南昌理工学院计算机系 Delphi 程序设计程序设计v第1章 Delphi 2005简介v第2章 Object Pascal语言基础v第3章 Windows应用程序界面设计v第4章 菜单、工具栏和对话框v第5章 使用复杂组件v第6章 面向对象的核心特性v第7章 多文档界面设计v第8章 程序调试与异常处理v第9章 文件操作和流v第10章 多媒体应用设计v第11章 数据库应用设计v第12章 综合应用设计第第4章章 菜单、工具栏和对话框菜单、工具栏和对话框1.4.1 菜单菜单2.4.2 行为列表组件

2、行为列表组件ActionList3.4.3 工具栏与状态栏工具栏与状态栏4.4.4 消息框与输入框消息框与输入框5.4.5 Windows通用对话框通用对话框 Delphi 程序设计4.1 菜单菜单1.4.1.1 主菜单主菜单MainMenu2.4.1.2 弹出式菜单弹出式菜单PopupMenu3.4.1.3 菜单图像与图像列表组件菜单图像与图像列表组件ImageList Delphi 程序设计4.1.1 主菜单主菜单MainMenu主菜单是相对于窗口而言的，它出现在窗主菜单是相对于窗口而言的，它出现在窗口的标题栏下，与窗口同时出现。口的标题栏下，与窗口同时出现。1.菜单设计器菜单设计器2.菜

3、单项的特性菜单项的特性3.菜单项的状态菜单项的状态复选复选单选单选 Delphi 程序设计【例例4.1】设计主菜单。设计主菜单。1.添加主菜单组件添加主菜单组件 2.添加菜单项添加菜单项 3.设置分隔条设置分隔条 4.子菜单子菜单 5.设置快捷键和加速键设置快捷键和加速键6.设置有效状态设置有效状态 7.设置复选标志设置复选标志 8.设置单选标志设置单选标志 9.编写菜单项的事件处理程序编写菜单项的事件处理程序 Delphi 程序设计菜单结构菜单结构 Delphi 程序设计4.1.2 弹出式菜单弹出式菜单PopupMenu弹出式菜单是相对于控件而言的弹出式菜单是相对于控件而言的1.将某个控件的

4、将某个控件的PopupMenu属性设置为属性设置为一个已存在的弹出式菜单一个已存在的弹出式菜单 Delphi 程序设计4.1.3 菜单图像与图像列表组菜单图像与图像列表组件件ImageList1.图像列表组件中添加图像图像列表组件中添加图像2.菜单与图像列表组件相关联菜单与图像列表组件相关联菜单组件与图像列表组件相关联菜单组件与图像列表组件相关联菜单项与菜单项与ImageList中的指定图像相关联中的指定图像相关联 Delphi 程序设计4.2 行为列表组件行为列表组件ActionList1.行为（行为（Action）2.ActionList编辑器编辑器3.添加标准行为添加标准行为4.自定义行

5、为自定义行为 Delphi 程序设计【例例4.2】使用使用ActionList组组件设计菜单。件设计菜单。添加系统定义的添加系统定义的Cut、Copy和和Paste等标准行为等标准行为1.添加组件添加组件 2.为为ActionList添加行为添加行为 3.使用使用Action属性创建菜单项属性创建菜单项 Delphi 程序设计4.3 工具栏与状态栏工具栏与状态栏1.4.3.1 工具栏工具栏ToolBar2.4.3.2 状态栏状态栏StatusBar Delphi 程序设计4.3.1 工具栏工具栏ToolBar1.创建创建ToolBar的按钮的按钮ToolButton执行执行New Button

6、执行执行New Separator2.ToolBar上添加其他组件上添加其他组件 Delphi 程序设计【例例4.3】设计工具栏。设计工具栏。建立常用与格式工具栏，演示自定义行为的操作。建立常用与格式工具栏，演示自定义行为的操作。1.设计常用工具栏设计常用工具栏 2.格式工具栏上添加按钮格式工具栏上添加按钮3.添加带下拉菜单的按钮添加带下拉菜单的按钮 4.格式工具栏上添加格式工具栏上添加ComboBox、SpinEdit等组件等组件 5.格式工具栏的状态随着光标位置处文本字体的改格式工具栏的状态随着光标位置处文本字体的改变而改变变而改变 6.显示与隐藏工具栏显示与隐藏工具栏 7.自定义行为自定

7、义行为 Delphi 程序设计4.3.2 状态栏状态栏StatusBarSimplePanel属性决定单面板与多面板。属性决定单面板与多面板。【例例4.4】设计状态栏。设计状态栏。添加状态栏添加状态栏 显示光标当前位置显示光标当前位置 显示数据修改过的状态显示数据修改过的状态 显示系统时间显示系统时间 Delphi 程序设计4.4 消息框与输入框消息框与输入框1.4.4.1 消息框与信息函数消息框与信息函数2.4.4.2 输入框与输入函数输入框与输入函数 Delphi 程序设计4.4.1 消息框与信息函数消息框与信息函数1.ShowMessage过程过程procedure ShowMessag

8、e(const Msg:string);2.MessageDlg函数函数function MessageDlg(const Msg:string;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:integer):integer;例如，例如，MessageDlg(数据已经改动，是否存盘？数据已经改动，是否存盘？,mtConfirmation,mbYes,mbNO,mbCancel,1);3.MessageDlgPos函数函数 Delphi 程序设计4.4.2 输入框与输入函数输入框与输入函数1.InputBox函数函数function Inp

9、utBox(const ACaption,APrompt,ADefault:string):string;例如，例如，LoginName:=InputBox(登录登录,请输入用请输入用户名户名:,guest);2.InputQuery函数函数function InputQuery(const ACaption,APrompt:string;var Value:string):Boolean;Delphi 程序设计4.5 Windows通用对话框通用对话框1.4.5.1 打开与保存文件对话框打开与保存文件对话框2.4.5.2 字体与颜色对话框字体与颜色对话框3.4.5.3 查找与替换对话框查找与

10、替换对话框4.4.5.4 页面设置、打印与打印设置对话页面设置、打印与打印设置对话框框 Delphi 程序设计对话框组件类对话框组件类 Delphi 程序设计4.5.1 打开与保存文件对话框打开与保存文件对话框1.打开文件对话框（打开文件对话框（OpenDialog）调用打开文件对话框：执行调用打开文件对话框：执行Execute方法方法 OpenDialog组件的属性：组件的属性：FileName、InitialDir、Filter、Options OpenDialog的主要事件：的主要事件：OnFolderChange 2.保存文件对话框（保存文件对话框（SaveDialog）3.打开与保存

11、图形文件对话框打开与保存图形文件对话框 Delphi 程序设计4.5.2 字体与颜色对话框字体与颜色对话框1.字体对话框（字体对话框（FontDialog）执行执行 Execute方法，所选字体存储在方法，所选字体存储在FontDialog.Font属性中属性中 2.颜色对话框（颜色对话框（ColorDialog）执行执行 Execute方法，所选颜色存储在方法，所选颜色存储在ColorDialog.Color属性中属性中 3.TColor类类以以RGB函数值表示颜色：函数值表示颜色：RGB（255,0,0）以常量值表示颜色：以常量值表示颜色：clRed、clGreen Delphi 程序设计

12、4.5.3 查找与替换对话框查找与替换对话框1.查找对话框（查找对话框（FindDialog）执行执行Execute方法方法 FindDialog的属性的属性nFindText属性，保存查找内容字符串。nOptions属性，集合类型，设置全字匹配、区分大小写、查找方向等选项。FindDialog的事件的事件nOnFind事件，单击【查找下一个】按钮时触发。nOnClose事件，单击【取消】按钮时触发。Delphi 程序设计2.替换对话框替换对话框（ReplaceDialog）1.执行执行Execute方法方法 2.ReplaceDialog的属性的属性FindText属性，保存查找内容字符串。

13、属性，保存查找内容字符串。ReplaceText属性，保存替换内容字符串。属性，保存替换内容字符串。Options属性，设置选项。属性，设置选项。3.ReplaceDialog的事件的事件OnFind事件，单击事件，单击【查找下一个查找下一个】按钮时触发。按钮时触发。OnClose事件，单击事件，单击【取消取消】按钮时触发。按钮时触发。OnReplace事件，单击事件，单击【替换替换】或或【全部替换全部替换】按钮按钮时触发。时触发。Delphi 程序设计【例例4.5】调用系统对话框。调用系统对话框。1.新建文件功能新建文件功能 2.打开文件打开文件 3.保存与另存文件保存与另存文件4.设置字体

14、设置字体 5.改变颜色改变颜色6.查找查找 1.替换替换替换算法描述替换算法描述 调用指定事件处理程调用指定事件处理程序序 父类对象与子类对象父类对象与子类对象的识别的识别 Delphi 程序设计4.5.4 页面设置、打印与打印页面设置、打印与打印设置对话框设置对话框1.页面设置对话框页面设置对话框（PageSetupDialog）2.打印对话框（打印对话框（PrintDialog）3.打印设置对话框打印设置对话框（PrinterSetupDialog）Delphi 程序设计实验实验4 设计菜单、工具栏设计菜单、工具栏1.实验实验1自动判题自动判题2.实验实验2设计记事本或写字板设计记事本或写字板 Delphi 程序设计