Delphi_7_用户界面设计.pptVIP

7.1 菜单设计 菜单是Windows应用程序最常用的交互方式，菜单有下拉式菜单和弹出式快捷菜单，Delphi7提供了可视化组件TmainMenu和PopupMenu来创建下拉式菜单和弹出式快捷菜单。 1.下拉式菜单：组件TmainMenu [例7-1]设计下拉式菜单 Standard 卡 2.弹出式快捷菜单: 组件PopupMenu [例7-2]设计弹出式式菜单 Standard 卡 菜单设计方法与1相同，但要使弹出式菜单中的某项菜单的OnClick事件与某下拉式菜单的OnClick事件相连。 另外，要使Form1的【PopupMenu】属性对应于PopupMenu1 7.2 工具栏和状态栏 Windows的窗口，顶部大多有一工具栏，底部有一状态栏 1. 工具栏 ToolBar组件，它带有自己的许多按钮（ToolButton） Win32 卡 [例7-4] 文档编辑器工具栏 ImageList1组件有许多工具图片 2. 状态栏 StatusBar组件，它带有自己的许多面板 Win32 卡 [例7-5] 创建状态栏 用Panel组件也可建立工具栏和状态栏 7.3 信息对话框 1.MessageBox函数 function MessageBox(c(5)ShowMessage函数 procedure ShowMessage(const Msg:string); onst Text; Caption: Pchar; Flage: Longint=MB_OK):Iteger; 2. MessageDlg函数 function MessageDlg(constMag:string; DlgType:TMsgDlgType;Buttons:TmsgDlgButtons; HelpCtx:Longint):Word; 3.MessageDlgPos函数 function MessageDlgPos(constMag:string; DlgType:TMsgDlgType;Buttons:TmsgDlgButtons; HelpCtx:Longint;x,y:Integer):Word; 4.ShowMessage过程 Procedure ShowMessage(const Msg:string); [例7-7] 7.4 对话框组件 Delphi7提供的对话框组件包括Open、Save、Font、Color 等，在Dialogs卡上。所有的对话框组件在运行时是不可 见的，它由事件来激发，如菜单或按钮的OnClick事件， 编写激发代码： 对话框组件名.Execute； 对话框组件所提供的对话框大多是“有模式对话框”： 无模式对话框: 在它出现在屏幕的同时，用户还可以在其他的窗口中进行工作。 有模式对话框: 在它出现在屏幕的时，用户一定要先对它进行对话，关闭后才可以开出其他的工作窗口。 1. OpenDialog对话框 [例7-9] 设计【打开】对话框 2. SaveDialog组件 [例7-10] SaveDialog组件的使用 3. FontDialog组件 [例7-11] 添加字体对话框 4. FindDialog组件 [例7-12] 为文本编辑器添加查找对话框 5. ReplaceDialog组件 [例7-13] 为文本编辑器添加替换对话框 6. ColorDialog组件 [例7-14] 为文本编辑器添加颜色对话框 7. PrintDialog组件 [例7-15] 为文本编辑器添加打印对话框 7.5 文档编辑器 完成一个功能完整、符合Windows程序风格的文档编辑器 1.添加下拉式菜单 [例7-16]添加下拉式菜单的文档编辑器 对菜单组件MainMenu的【Images】属性为ImageList1，这样可在菜单上加图标。 2.Action 行为 Standard卡上有组件：ActionList行为列表组件，我们可以选它作为菜单。 [例7-17]为菜单项添加Action → ActionList1→双击→ActionList编辑器→右键→ New Standard Action →选择其中需要的一些Action 命令→OK。 菜单编辑器中的菜单项，选【Action】属性为ActionList行为列表中的某一项。工具栏中的工具按钮的Action方法也可设为ActionList行为列表中的某一项 3.添加弹出菜单 还可对文档编辑器加上弹出式快捷菜单。 [例7-18]为文档编辑器添加弹出菜单