有什麼辦法能做出像win98/win2000的開始菜單?(200分)

  • 主题发起人 主题发起人 amli
  • 开始时间 开始时间
A

amli

Unregistered / Unconfirmed
GUEST, unregistred user!
有什麼辦法能做出像win98/win2000的開始菜單?
但是不能像QQ那樣,當前光標移到左邊的位圖時菜單選擇位置不變.
 
自己编码会很麻烦,可以找个相应的控件,比如DevExpress ExpressBar
 
DevExpress ExpressBar这个控件还是实现不了左邊的位圖時菜單選擇位置不變.
 
一定要用delphi吗?
 
我倒有个DEMO,你需要的话,EMAIL
 
EMAIL To:my_netbox@hotmail.com
 
发给你了
 
沒收到,有多大,太大了就發amlisource@163.com
 
有3M多,又发给你了
 
to app2001
能发份给我吗?我也正在找这个,先谢了! thru_sky@163.com
 
问amli拿吧
 
沒收到,有3M就要發到amlisource@163.com
 
to app2001:
不是你传给的那样.是跟win2000的一样.
 
用控件吧
 
我都有些不明白了,win2000什么样的??
 
要看一下demo的朋友可以到
http://Amli.go.nease.net/files/AppServer.exe(好像要在地址栏输入这行字串,执行文件后在输入法显示区中看到一图标,右键就可以到菜单了,我觉得别人做的不错)
下载,看是怎样做出来的.
知道的朋友一定告诉我哦.
 
我也要一个,谢谢
ty_unix@163.com
 
你说的那个执行文件我下回来都执行不了的?
 
procedure TForm1.bsSkinButton2Click(Sender: TObject);
var
rect1:trect; //开始菜单的位置确定
begin
GetWindowrect(bsSkinButton2.Handle,rect1);
if rect1.Top>bsSkinPopupMenu1.Items.Count*15+3 then
bsSkinPopupMenu1.Popup(rect1.Left-10,rect1.top-bsSkinPopupMenu1.Items.Count*0-8)
else
bsSkinPopupMenu1.Popup(rect1.Left,rect1.bottom);
end;
 
给分;记得加一个右建菜单啊,要是还部知道的话,email我,zsgkw@126.com
 
后退
顶部