第4章 菜单类组件和工具栏.ppt

第4章菜单类组件和工具栏菜单及工具栏组件示例【例】设计一个Web浏览器，主要使用菜单及工具栏组件。 (1)创建窗体和菜单： 建立一个新项目?添加Form?添加WebBrowser组件?菜单。主菜单和快捷菜单第29页，共49页，星期日，2025年，2月5日第4章菜单类组件和工具栏菜单及工具栏组件示例 (2)设置工具栏组件： 向窗体添加一个TCoolBar组件（该组件在Win32页上）， 并为其Bitmap属性指定一幅图。再向该TCoolBar组件中 添加两个工具条组件ToolBar（ToolBar1、ToolBar2）， 将每一个工具条的EdgeBorder属性设置为[]， ShowCaption设置为True。 (3)添加按钮： 右击工具条，选择 NewButton命令为 每一工具条添加四 个工具按钮。 (4)添加其他组件如图：第30页，共49页，星期日，2025年，2月5日第4章菜单类组件和工具栏菜单及工具栏组件示例 (5)编写程序代码： procedureTMainForm.Exit1Click(Sender:TObject); begin Close; end; procedureTMainForm.FindAddress; {导航到地址框中键入的URL地址} var Flags:OLEVariant; begin Flags:=0; UpdateCombo:=True; //更新地址框中的URL显示 //导航到指定URL地址 WebBrowser1.Navigate(WideString(Urls.Text),Flags,Flags, Flags,Flags); end;第31页，共49页，星期日，2025年，2月5日第4章菜单类组件和工具栏菜单及工具栏组件示例procedureTMainForm.About1Click(Sender:TObject);beginShowAboutBox;end;procedureTMainForm.StopClick(Sender:TObject);beginWebBrowser1.Stop; //停止当前操作end;第32页，共49页，星期日，2025年，2月5日第4章菜单类组件和工具栏菜单及工具栏组件示例procedureTMainForm.URLsKeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);{如果用户在地址框中按下回车键，则导航到用户键入的URL地址上}begin ifKey=VK_ReturnthenbeginFindAddress;end;end;procedureTMainForm.URLsClick(Sender:TObject);beginFindAddress;end;第33页，共49页，星期日，2025年，2月5日第4章菜单类组件和工具栏菜单及工具栏组件示例procedureTMainForm.LinksClick(Sender:TObject);{如果用户单击了一个链接，则导航到该链接所指的URL}beginif(SenderasTToolButton).Hint=thenExit;//从工具按钮的Hint属性中取得URLURLs.Text:=(SenderasTToolButton).Hint;FindAddress;end;procedureTMainForm.RefreshClick(Sender:TObject);//刷新页面beginFindAddress;end;第34页，共49页，星期日，2025年，2月5日第4章菜单类组件和工具栏菜单及工具栏组件示例procedureTMainForm.BackClick(Sender:TObject);{返回到历史列表中的上一个页面}beginURLs.Text:=HistoryList[HistoryIndex-1];FindAddress;end;procedureTMa