表1主页面控件及属性设置

上述属性编辑和修改结束后,注意将结果存盘。 2.菜单 菜单是重要导航工具之一,在所介绍的网站中,就是使用一个Delphi的下拉菜单来完成网站导航目的。该菜单在其他的页面中还要用到,即内容和代码有较高的重用性。所以首先,需要创建一个新的Intraweb 框架页面,将菜单建立在其中,方便在其他页面中直接使用。 创建Frame框架页面的具体过程:在Delphi的选择File→New→Other菜单命令,打开IntraWeb选项卡对话框,选择New Frame项,弹出New Frame Wizard界面,在Select type of Frame中点击确认HTML4.0选项,最后按OK按钮即将建一个新的Frame框架页面,并将其命名为F_ IWFrame,单元文件名为u_IWframe。之后接着在框架窗体上添加一个名为IWMenu的TIWmenu控件,一个名为Mainmenu的Delphi TMainmenu菜单控件,设置好相关的属性,具体参数可见表2。 表2 Mainmenu导航菜单

所有属性编辑和修改结束后的导航菜单效果如图9所示。

图9 导航菜单效果
Intraweb所创建的框架页面的菜单、图片、标签、文本框、编辑框等等,在intraweb的任何页面中都能直接引用,如刚刚设计的菜单,要在主页面(F_IWFormMain)中引用,就要在Delphi IDE的Standard页面中选择Frames控件,加入到主页面中,此时IDE会弹出一个可供选择相关Frame内容的对话框,如图10所示,选择其中F_IWFrame项即可,之后只需调整位置、显示区域等,引用即告成功(其他页面的引用与此相同,故不再加以说明)。

图10主页面引用菜单框架页面
3.过程及代码 为了实现页面切换和显示需要在F_IWFrame窗体中定义页面移动专用过程: ……… private procedure MoveForm(AFormClass: TIWAppFormClass); ………
procedure TframMenu.MoveForm(AFormClass: TIWAppFormClass); begin //释放掉当前窗体 TIWAppForm(WebApplication.ActiveForm).Release; // 显示指定窗体 AFormClass.Create(WebApplication).Show; end; 上述工作做完后,保存结果。同时记住在登录窗体页面中(F_IWFormlogin)。登录按钮事件的口令验证通过部分加入如下代码: TF_IWFormMain.Create(WebApplication).Show;//页面切换至主页 再次运行该程序,所见到主页面如图11所示。

图11 运行期的主页面
|