Delphi程序设计基础与上机指导讲义

1、Delphi 程序设计基础与上机指导第七章 Win32 组件及系统功能调用使用菜单 分类w 两类菜单n主菜单和快捷菜单 n不同的用法n不同的使用场合n相同点菜单设计器 主菜单w 创建菜单组n操作步骤n菜单组的属性n菜单组的设计菜单设计器 主菜单w 子菜单n新建子菜单项n新建多个子菜单项n菜单项的快捷键n菜单项的标题n菜单项的加速键n菜单项分组菜单设计器 主菜单w 子菜单分组n子菜单按照功能分组n分组菜单之间的分隔符菜单设计器 主菜单w 子菜单项的子菜单 n多级菜单的设计方法n菜单的分级标准n低级菜单的设计n低级菜单的命名菜单设计器 主菜单w 子菜单项的图标n使用ImageList组件n管理图片

2、列表 n为菜单项设置图标n具体的实例菜单设计器 主菜单w 使用菜单状态n多个菜单项的分组控制n菜单的Checked状态n使用代码控制状态的变换n具体的设计实例菜单设计器 快捷菜单w 快捷菜单n没有多个菜单组n设计快捷菜单的菜单项n快捷菜单的子菜单项分组n加速键的设置菜单功能 编写代码w 为菜单OnClick事件句柄编写代码n简单的实例nprocedure TfrmMain.miFileExitClick(Sender: TObject);nbeginn Close;nend;菜单功能 编写代码w 切换主菜单 n根据具体内容改变主菜单n通过代码实现nprocedure TfrmMain.cbxU

3、seMainMenuClick(Sender: TObject);nbeginn if(cbxUseMainMenu.Checked)thenn Menu := mmuMainn elsen Menu := nil;nend;菜单功能 快捷菜单 w 如何设置快捷菜单w 为快捷菜单编写代码w 多个组件共享快捷菜单w 快捷菜单菜单项状态的控制菜单功能 菜单状态w 使用可见状态 n使用可见状态可以控制菜单的可见性n在设计时刻可以设置菜单项的初始状态n使用代码控制菜单的可见性：nprocedure TfrmMain.pmuEditPopup(Sender: TObject);nbeginn miCut

4、.Visible := (retContent.SelLength 0);n miCopy.Visible := (retContent.SelLength 0);n miPaste.Visible := (Clipboard.AsText );nend; 菜单功能 菜单状态w 使用可用状态 n通过Enable属性控制菜单项是否可用n在设计时刻可以初始化菜单项的状态n使用代码可以控制菜单项的状态：nprocedure TfrmMain.pmuEditPopup(Sender: TObject);nbeginnn miCut.Visible := (retContent.SelLength 0)

5、;n miCopy.Visible := (retContent.SelLength 0);n miPaste.Visible := (Clipboard.AsText );nn miCut.Enabled := (retContent.SelLength 0);n miCopy.Enabled := (retContent.SelLength 0);n miPaste.Enabled := (Clipboard.AsText ); nend;菜单功能 思考w 除了使用菜单设计器菜单，所有菜单都可以通过代码动态的创建！工具栏 设计w 设计工具栏n选择CoolBar组件n添加工具栏组件n设置工具

6、栏的ImageList属性n创建工具按钮n设置工具按钮的属性n设置工具按钮的图标工具栏 使用w 工具栏与菜单的结合n设置工具栏的List属性n设置工具栏的ShowCaptions属性n设置菜单项与工具按钮的对应关系工具栏 特殊用法w 工具栏特殊用法 n工具栏组件的Flat属性 n工具栏组件的ShowCaptions属性n在工具栏组件上放置其他特殊组件n为工具按钮编写代码n具体实例程序状态栏 单面板状态栏w 特殊形状的窗口 n打开菜单设计器窗口n为菜单项设置提示信息属性n设置菜单项的ShowHint属性n添加函数函数DisplayHint n为应用程序设置OnHint事件句柄状态栏 多面板状态栏

7、w 多面板状态栏n设置多面板n设置面板的对齐和宽度等属性n设置状态栏的文字n通过代码设置属性n简单实例工具栏和状态栏 思考w 完善实例程序列表视图框 设计w 设计列表视图框n使用ViewStyle属性n创建多个列表项n为列表项设置图标n设置列表项的宽度、对齐方式n利用代码控制列表项n实例程序列表视图框 编码w 控制列表视图框n用代码添加和删除列表项n用代码改变列表的显示方式n比较完整的实例程序树状列表框 列表w 控制树状列表nAddChildObjectnAddChildnAddChildFirstnAddChildObjectFirstw 递归方法树状列表框 思考w 完善文件列表框定时触发器 用法w 定时触发器 n设置定时间隔 n设置定时器的状态n使用定时触发器显示时间n定时触发器的计时功能媒体播放器 用法w 媒体播放器 n界面定制n自动播放媒体n媒体类型媒体播放器 进度控制w 使用代码控