Delphi程序设计基础与上机指导演讲稿第07章.ppt

Delphi程序设计基础与上机指导 第七章Win32组件及系统功能调用 使用菜单 分类 两类菜单主菜单和快捷菜单不同的用法不同的使用场合相同点 菜单设计器 主菜单 创建菜单组操作步骤菜单组的属性菜单组的设计 菜单设计器 主菜单 子菜单新建子菜单项新建多个子菜单项菜单项的快捷键菜单项的标题菜单项的加速键菜单项分组 菜单设计器 主菜单 子菜单分组子菜单按照功能分组分组菜单之间的分隔符 菜单设计器 主菜单 子菜单项的子菜单多级菜单的设计方法菜单的分级标准低级菜单的设计低级菜单的命名 菜单设计器 主菜单 子菜单项的图标使用ImageList组件管理图片列表为菜单项设置图标具体的实例 菜单设计器 主菜单 使用菜单状态多个菜单项的分组控制菜单的Checked状态使用代码控制状态的变换具体的设计实例 菜单设计器 快捷菜单 快捷菜单没有多个菜单组设计快捷菜单的菜单项快捷菜单的子菜单项分组加速键的设置 菜单功能 编写代码 为菜单OnClick事件句柄编写代码简单的实例procedureTfrmMain miFileExitClick Sender TObject beginClose end 菜单功能 编写代码 切换主菜单根据具体内容改变主菜单通过代码实现procedureTfrmMain cbxUseMainMenuClick Sender TObject beginif cbxUseMainMenu Checked thenMenu mmuMainelseMenu nil end 菜单功能 快捷菜单 如何设置快捷菜单为快捷菜单编写代码多个组件共享快捷菜单快捷菜单菜单项状态的控制 菜单功能 菜单状态 使用可见状态使用可见状态可以控制菜单的可见性在设计时刻可以设置菜单项的初始状态使用代码控制菜单的可见性 procedureTfrmMain pmuEditPopup Sender TObject beginmiCut Visible retContent SelLength 0 miCopy Visible retContent SelLength 0 miPaste Visible Clipboard AsText end 菜单功能 菜单状态 使用可用状态通过Enable属性控制菜单项是否可用在设计时刻可以初始化菜单项的状态使用代码可以控制菜单项的状态 procedureTfrmMain pmuEditPopup Sender TObject begin miCut Visible retContent SelLength 0 miCopy Visible retContent SelLength 0 miPaste Visible Clipboard AsText miCut Enabled retContent SelLength 0 miCopy Enabled retContent SelLength 0 miPaste Enabled Clipboard AsText end 菜单功能 思考 除了使用菜单设计器菜单 所有菜单都可以通过代码动态的创建 工具栏 设计 设计工具栏选择CoolBar组件添加工具栏组件设置工具栏的ImageList属性创建工具按钮设置工具按钮的属性设置工具按钮的图标 工具栏 使用 工具栏与菜单的结合设置工具栏的List属性设置工具栏的ShowCaptions属性设置菜单项与工具按钮的对应关系 工具栏 特殊用法 工具栏特殊用法工具栏组件的Flat属性工具栏组件的ShowCaptions属性在工具栏组件上放置其他特殊组件为工具按钮编写代码具体实例程序 状态栏 单面板状态栏 特殊形状的窗口打开菜单设计器窗口为菜单项设置提示信息属性设置菜单项的ShowHint属性添加函数函数DisplayHint为应用程序设置OnHint事件句柄 状态栏 多面板状态栏 多面板状态栏设置多面板设置面板的对齐和宽度等属性设置状态栏的文字通过代码设置属性简单实例 工具栏和状态栏 思考 完善实例程序 列表视图框 设计 设计列表视图框使用ViewStyle属性创建多个列表项为列表项设置图标设置列表项的宽度 对齐方式利用代码控制列表项实例程序 列表视图框 编码 控制列表视图框用代码添加和删除列表项用代码改变列表的显示方式比较完整的实例程序 树状列表框 列表 控制树状列表AddChildObjectAddChildAddChildFirstAddChildObjectFirst递归方法 树状列表框 思考 完善文件列表框 定时触发器 用法 定时触发器设置定时间隔设置定时器的状态使用定时触发器显示时间定时触发器的计时功能 媒体播放器 用法 媒体播放器界面定制自动播放媒体媒体类型 媒体播放器 进度控制 使用代码控制进度Back P