那里能够找到跟win98的开始中的弹出式菜单(带竖直图形)一样的菜单控件?(50分)

  • 主题发起人 主题发起人 HongKong5
  • 开始时间 开始时间
自己做一个吧
 
到http://202.103.176.81/frun/bruce_zhao/去找

venus4.exe (5127K)
一组界面增强工具,包括Button、Menu、Caption等工具,如果你觉得上面的Cool Menu太花哨,你可以用它提供的Oxmenu,一样可以做出类Win 9x的菜单,可以使用它为Form的Caption增加按钮,如果你见过Caption上增加了比如Stay on top、Rool up/down等按钮时,八成是用它做的。(注册号:410986572725474D4、877888353147369D4)
 
本论坛以前曾有过讨论,由Another_eYes解答.可以在离线浏览包中找到.
抱歉找不到原文了,以下是我的摘抄:
在菜单项中增加一条空项,插入于第一行.它的bitmap属性中指定你需要的位图.
菜单的ownerdraw:=true.在OnMeasureItem event中设定菜单的长宽.在
OnOwnerDraw中画位图.

弹出菜单(下拉菜单) popmenu1 第一项为空 n1

procedure TForm1.n1measureitem(..)
begin
width:=n1.bitmap.width;
height:=n1.bitmap.height;
end;

procedure TForm1.n1DrawItem(Sender:TObject;ACanvas:TCanvas;ARect:
TRect;Selected:Boolean)
begin
ACanvas.draw(Arect.left,Arect.top,n1.bitmap);
end;

我曾经实验过的,绝对可行!
 
RXLib控件包中有,可做出和Win98一模一样的菜单(你可以瞧瞧它的Demo)。
 
接受答案了.
 
后退
顶部