第4章 菜单栏工具栏与对话框.pptVIP

第4章 用户界面设计 [主要内容：] §4.1 菜单设计 菜单分类及共性点 菜单分下拉菜单和快捷菜单两大类。 菜单设计要点： （1）将相关的编辑或操作命令组织到一个菜单中；对于使用频率高的命令，可以放到快捷菜单中。 （2）多数菜单都设有加速键和热键。 （3）部分菜单设有子菜单。 （4）菜单中多有分隔条。 （5）部分菜单项前有图标。 （6）菜单可以动态调整（如增、删、可用、不可用） 菜单制作方法： 下拉菜单使用MainMenu组件，通过菜单设计器来设置菜单项。 加速键设定在Caption属性中输入（F） 热键在ShortCut属性中选择。 菜单项可用与不可用在Enable属性中完成。 菜单项显示与不显示在Visible属性中设置。 菜单项的增删利用程序完成。 添减菜单项 Procedure TForm1.N11Click(Sender:Tobject); Var item:TMenuItem; Begin item:=TMenuItem.Create(self); item.Caption:=Edit1.Text; N9.Insert(N9.Count,item); End; §4.2 工具栏与状态栏 使用Win32组件面板页中的ToolBar、CoolBar组件完成。 状态栏：利用StatusBar控件完成。 (1)利用Panels属性 (2)注意它的SimplePanel属性。 Procedure TForm1.Button1Click(Sender:Tobject); Begin StatusBar1.Panels[3].Text:=‘abc’; End; §4.3 信息对话框 4.3.1 MessageBox函数 Function MessageBox(const Text,Catpion:Pchar;Flag:Longint=MB_OK):Integer; (1)Text：是长度可达255的字符串。可自动环绕。 (2)Caption:与Text相同，作为对话框的标题。 (3)Flag:LongInt类型，从0到7取值。 练 习 procedure TForm1.Button3Click(Sender: TObject); begin if application.MessageBox(abc,de,2)=3 then showmessage(abort); end; 注：必须使用Application调用。 4.3.2 MessageDlg Function MessageDlg(const Msg:string;DlgType:TmsgDlgType;Buttons:TmsgDlgButtons;HelpCtx:Longint):word; § 4.3.3 MessageDlgPos Function MessageDlgPos(const Msg:string;DlgType:TmsgDlgType;Button:TmsgDlgButtons;HelpCtx:Longint;X,Y:integer):Word; 注：X与Y代表指定一个位置显示一个对话框。 例： Procedure TForm1.Button1Click(Sender:Tobject); Begin MessageDlgPos(‘Input’,mterror,[mbok,mbcancel],0,200,200); End; §4.3.4 Showmessage§4.3.5 InputBox Function InputBox(const Acaption,Apromt,AdefaultMSG:string):string; §4.4 对话框组件 打开对话框（OpenDialog） (1)[defaultExt]:用于指定一个默认的扩展名。 (2)[Filename]:指定一个文件名。 (3)[Filter]:文件过滤器，文件特定类型的文件。 (4)[IntialDir]:打开指定目录。 (5)[Title]:对话框的标题。 (6)[Options]:见第153页 例：procedure TForm1.Button5Click(Sender: TObject); begin opendialog1.DefaultExt:=txt; opendialog1.Execute ; if ofExtensionDifferent in opendialog1.Options then