超酷菜单，类似WindowsXP的菜单，千万别错过。源码下载，Delphi,BCB都可用

houzh 2001-08-22 10:01:48

下载地址：http://www.ciemmesoft.com/componenti/xpmenu.zip

...全文

296 23 打赏收藏转发到动态举报

写回复

用AI写文章

23 条回复

切换为时间正序

请发表友善的回复…

发表回复

Scarlette 2001-08-22

打赏
举报

嗯，源码已经分析好了。已经找到了其中FlatMenu=True时第一次显示时Border没有重绘的Bug的原因。另外MeasureItem方法内部也有错误。

Tompage 2001-08-22

打赏
举报

真好用，谢了！

houzh 2001-08-22

打赏
举报

建立或打开一个控件包，按Add按钮，添加一个模块单元，选取添加*.Pas文件
bcb会自动建立一个对应的*.hpp文件。
绝对不要任何修改就可以运行
在form上添加该控件，设置Active=true
OverrideOwnerDraw=true;
就一切OK了。甚至在ToolBar上建立菜单用的ToolButton都变了样子
我都试过了，真的好用。
TMD一切都是源代码，怎么会有木马，真笨

DD88 2001-08-22

打赏
举报

没木马吧？
怎么用啊？

lwk_hlj 2001-08-22

打赏
举报

我会了，真的好啊
tmd 真好

lwk_hlj 2001-08-22

打赏
举报

如何用啊

boclif 2001-08-22

打赏
举报

Thank you very much!

Bob7946 2001-08-22

打赏
举报

谢了

feng_zi 2001-08-22

打赏
举报

不是加＊.pas吗？界面有何变化呢，我用的是delphi5没有反应

coolbaby 2001-08-22

打赏
举报

基本上好使
不过效果也不怎么样！

coolbaby 2001-08-22

打赏
举报

我会用一些了！

角落的青苔 2001-08-22

打赏
举报

明天再试试呀^_^

soff 2001-08-22

打赏
举报

直接将控件加进来，属性设active为true就可以了，偶一直用他。

coolbaby 2001-08-22

打赏
举报

怎么用？

suite 2001-08-22

打赏
举报

有几个问题，popup menu是不变的，而且在toolbar上的toolbutton中设定的menu1也只是
button变，菜单并不变。

feng_zi 2001-08-22

打赏
举报

如何用之，小弟不才！

Scarlette 2001-08-22

打赏
举报

cornermoss：
很遗憾，这个XpMenu只不过是将TMainMenu和所有TMainMenuItem的OnOwnerDraw指向自己，然后由自己重绘罢了。上述Bug的原因在于以下代码段：

if not (csDesigning in ComponentState) then
begin
if (FFlatMenu) and (not FTopMenu) then
begin
hDcM := ACanvas.Handle;
hWndM := WindowFromDC(hDcM);
if hWndM <> FForm.Handle then
begin
DrawWindowBorder(hWndM, FMenu.IsRightToLeft);
end;
end;
end;

在Menu第一次弹出时，取到的hWndM总是0。这因该是设计结构上的失误，暂时还没有办法修正。

角落的青苔 2001-08-22