用过word97的人对它的工具栏印象很深刻,因为它的风格很“酷”,同样ie4.0的工具栏也有类似的风格,win98的出现,使这种风格的工具栏得到了推广。其实,用delphi4很容易实现具有word97风格的工具栏。
在delphi4的元件选项板additional页中,新增了controlbar元件,此元件和win32页中的toolbar、coolbar配合使用,再辅以imagelist、mainmenu等元件,完全可以实现具有word97风格的工具栏。下面以一个form中的工具栏为例,详细介绍设计步骤:
1从additional页中选择controlbar,将其放入form1中,设置其属性如下:allign:=altopautosize:=truebevelkind:=bknone
2从win32页中选择toolbar,将其放于controlbar上,调整toolbar的位置,使其置于最左,再调整其宽度,设置属性edgeborders:=[],flat:=true。用鼠标右击toolbar,在浮动菜单上选择newbutton,重复若干次,设计好所需的按钮。
3从win32页中选择imagelist元件,为form1设计主菜单,主菜单的设计方法同delphi2、delphi3。设计好主菜单后,将其属性automerge置为true。
4最后为每一个按钮分配tmenuitem的name值,将每个按钮的menuitem属性值设为所需菜单的name值。
按f9运行程序,便可发现,设计出的工具栏已经具有word97的风格,用鼠标在各个按钮上移动,按钮自动上浮,单击鼠标,弹出相应的菜单。需要说明的是,mainmenu的属性automerge置为true,是为了不让主菜单出现在form1的最上端。工具栏的设计必须将controlbar与toolbar结合使用,不然得不到与word97外观一样的工具栏