菜单、工具栏和对话框课件

菜单、工具栏和对话框

4.1菜单4.1.1主菜单MainMenu4.1.2弹出式菜单PopupMenu4.1.3菜单图像与图像列表组件ImageList4.1.1主菜单MainMenu主菜单是相对于窗口而言的，它出现在窗口的标题栏下，与窗口同时出现。菜单设计器菜单项的特性菜单项的状态复选单选【例4.1】设计主菜单。添加主菜单组件添加菜单项设置分隔条子菜单设置快捷键和加速键设置有效状态设置复选标志设置单选标志编写菜单项的事件处理程序菜单结构4.1.2弹出式菜单PopupMenu弹出式菜单是相对于控件而言的将某个控件的PopupMenu属性设置为一个已存在的弹出式菜单4.1.3菜单图像与图像列表组件ImageList图像列表组件中添加图像菜单与图像列表组件相关联菜单组件与图像列表组件相关联菜单项与ImageList中的指定图像相关联4.2行为列表组件ActionList行为（Action）ActionList编辑器添加标准行为自定义行为【例4.2】使用ActionList组件设计菜单。添加系统定义的Cut、Copy和Paste等标准行为添加组件为ActionList添加行为使用Action属性创建菜单项4.3工具栏与状态栏4.3.1工具栏ToolBar4.3.2状态栏StatusBar4.3.1工具栏ToolBar创建ToolBar的按钮ToolButton执行NewButton执行NewSeparatorToolBar上添加其他组件【例4.3】设计工具栏。建立常用与格式工具栏，演示自定义行为的操作。设计常用工具栏格式工具栏上添加按钮添加带下拉菜单的按钮格式工具栏上添加ComboBox、SpinEdit等组件格式工具栏的状态随着光标位置处文本字体的改变而改变显示与隐藏工具栏自定义行为4.3.2状态栏StatusBarSimplePanel属性决定单面板与多面板。【例4.4】设计状态栏。添加状态栏显示光标当前位置显示数据修改过的状态显示系统时间4.4消息框与输入框4.4.1消息框与信息函数4.4.2输入框与输入函数4.4.1消息框与信息函数ShowMessage过程procedureShowMessage(const

Msg:string);MessageDlg函数functionMessageDlg(const

Msg:string;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:integer):integer;例如，MessageDlg('数据已经改动，是否存盘？',mtConfirmation,[mbYes,mbNO,mbCancel],1);MessageDlgPos函数4.4.2输入框与输入函数InputBox函数functionInputBox(const

ACaption,APrompt,ADefault:string):string;例如，LoginName:=InputBox('登录','请输入用户名:','guest');InputQuery函数functionInputQuery(const

ACaption,APrompt:string;var

Value:string):Boolean;4.5Windows通用对话框4.5.1打开与保存文件对话框4.5.2字体与颜色对话框4.5.3查找与替换对话框4.5.4页面设置、打印与打印设置对话框对话框组件类4.5.1打开与保存文件对话框打开文件对话框（OpenDialog）调用打开文件对话框：执行Execute方法OpenDialog组件的属性：FileName、InitialDir

、Filter、OptionsOpenDialog的主要事件：OnFolderChange

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

4.5.3查找与替换对话框查找对话框（FindDialog）执行Execute方法FindDialog的属性FindText属性，保存查找内容字符串。Options属性，集合类型，设置全字匹配、区分大小写、查找方向等选项。FindDialog的事件OnFind事件，单击【查找下一个】按钮时触发。OnClose事件，单击【取消】按钮时触发。2.替换对话框（ReplaceDialog）执行Execute方法ReplaceDialog的属性FindText属性，保存查找内容字符串。ReplaceText属性，保存替换内容字符串。Options属性，设置选项。ReplaceDialog的事件OnFind事件，单击【查找下一个】按钮时触发。OnClose事件，单击【取消】按钮时触发。OnReplace事件，单击【替换】或【全部替换】按钮时触发。【例4.5】调用系统对话框。新建文件功能打开文件保存与另存文件设置字体改变颜色查找替换替换算法描述调用指定事件处理程序父类对象与子类对象的识别4.5.4