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

Delphi 程序设计基础与上机指导 第七章 Win32 组件及系统功能调用 使用菜单 － 分类 两类菜单 主菜单和快捷菜单 不同的用法 不同的使用场合 相同点 菜单设计器 －主菜单 创建菜单组 操作步骤 菜单组的属性 菜单组的设计 菜单设计器 －主菜单 子菜单 新建子菜单项 新建多个子菜单项 菜单项的快捷键 菜单项的标题 菜单项的加速键 菜单项分组 菜单设计器 －主菜单 子菜单分组 子菜单按照功能分组 分组菜单之间的分隔符 菜单设计器 －主菜单 子菜单项的子菜单 多级菜单的设计方法 菜单的分级标准 低级菜单的设计 低级菜单的命名 菜单设计器 －主菜单 子菜单项的图标 使用ImageList组件 管理图片列表 为菜单项设置图标 具体的实例 菜单设计器 －主菜单 使用菜单状态 多个菜单项的分组控制 菜单的Checked状态 使用代码控制状态的变换 具体的设计实例 菜单设计器 －快捷菜单 快捷菜单 没有多个菜单组 设计快捷菜单的菜单项 快捷菜单的子菜单项分组 加速键的设置 菜单功能 － 编写代码 为菜单OnClick事件句柄编写代码 简单的实例 procedure TfrmMain.miFileExitClick(Sender: TObject); begin Close; end; 菜单功能 － 编写代码 切换主菜单 根据具体内容改变主菜单 通过代码实现 procedure TfrmMain.cbxUseMainMenuClick(Sender: TObject); begin if(cbxUseMainMenu.Checked)then Menu := mmuMain else Menu := nil; end; 菜单功能 － 快捷菜单 如何设置快捷菜单 为快捷菜单编写代码 多个组件共享快捷菜单 快捷菜单菜单项状态的控制 菜单功能 － 菜单状态 使用可见状态 使用可见状态可以控制菜单的可见性 在设计时刻可以设置菜单项的初始状态 使用代码控制菜单的可见性： procedure TfrmMain.pmuEditPopup(Sender: TObject); begin miCut.Visible := (retContent.SelLength 0); miCopy.Visible := (retContent.SelLength 0); miPaste.Visible := (Clipboard.AsText ); end; 菜单功能 － 菜单状态 使用可用状态 通过Enable属性控制菜单项是否可用 在设计时刻可以初始化菜单项的状态 使用代码可以控制菜单项的状态： procedure TfrmMain.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事件句柄 状态栏 － 多面板状态栏 多面板状态栏 设置多面板 设置面板的对齐和宽度等属性 设置状态栏的文字 通过代码设置属性 简单实例 工具栏和状态栏 － 思考 完善实例程序