请问,像IE那样的主菜单怎样做??(100分)

  • 主题发起人 主题发起人 cgh0717
  • 开始时间 开始时间
说得容易,收藏夹菜单可不是随便做的。
但愿D6出来后可以。
 
1. CoolBar + ToolBar 完全可以。
具体做法:先做一个mainmenu,然后把form的menu属性设为空;
放上CoolBar和ToolBar,在ToolBar上放按钮,按钮的menuitem属性
设为mainmenu中的菜单项,grouped属性设为true.

3. PageControl的OwnerDraw设为True,
在PageControl的DrawTab事件中写相应的代码(如下例):
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
{设置背景颜色、设置字体并显示文字}
with Control.Canvas do begin
Brush.Style := bsSolid;
Brush.Color := $00DDBB99;
FillRect(Rect);
Font.Size := 11;
TextOut(Rect.Left + 24, Rect.Top + 3, PageControl1.Pages[TabIndex].Caption);
end;
{显示图标}
Imagelist1.Draw(Control.Canvas, Rect.Left + 3, Rect.Top + 3,
PageControl1.Pages[TabIndex].ImageIndex, True);
end;

 

看看我发给你的例子有用不?
 
《程序员大本营2000》中有相关控件,要不要我给你寄去?
 
请您寄给我,谢谢
cgh0717@sina.com
 
那是用AnimatedMenus98作的。
 
不知在哪里找?
 
tnnd,我都说dev bar可以做到这种效果了,你还问在哪里找,devexpress的东东,网上
一大把,凌云天地、男儿有志当凌云都有。
我都用这东东做了个类似ie的东西出来了。
 
去Delphi大师大Down一个TCoolItem构件(http://go3.163.com/~delphi6/welcome.html)
vcl控件中自己找去!^_^^_^找到后别忘了给我加分呦!
 
OK,我去看看。delphibbs怎么现在才能进来,我有半年没有进来了。
 
(http://go3.163.com/~delphi6/welcome.html)
这里已经进不去了,不知哪 里有TCoolItem来下载??
 
Coolbar+TooBar+MainMemo
完全可以作出像IE那样的菜单。
如果想要的话,可以给你发一个例子?
 
我知道,可是要是菜单太长的话,就不行了,我就是想实现IE那个菜单的功能
 
不要再争了,Delphi6已经实现了
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
692
import
I
I
回复
0
查看
544
import
I
后退
顶部