效果见右图，OfficeXP里就是这样的风格，其实实现很简单，不必专门在网上找别人控件。 把StatusBar的SimplePanel设为False，点击Panels添加StatusPanel，把所有StatusPanel的Bevel设为pbNone、Style设为psOwnerDraw因为我们要自 Read More
posted @ 2016-04-15 00:36
findumars
Views(493)
Comments(0)
Diggs(0)
这是以前写的代码，自绘XP风格的菜单，硬盘坏了后以为没了，最后写的一个软件要自定义风格，“翻箱倒柜”的终于在我可爱的古董机^_^上找到了一个应用的例子。还是把它放到Blog上来，即可共享又可作为备用 :) 把主菜单的OnMeasureItem指向MeasureMainItem、OnAdvancedD Read More
posted @ 2016-04-15 00:35
findumars
Views(403)
Comments(0)
Diggs(0)
鼠标拖放插入点提示 鼠标拖放是Windows常见的操作，比如拷贝文件就可用拖放方式进行。在我们编写的应用程序中，有时为了方便用户操作需要支持鼠标拖放。对于大部分的VCL控件只要鼠标将DragMode设为dmAutomatic，就可以在OnDragDrop、OnDragOver和OnEndDrag中处 Read More
posted @ 2016-04-15 00:33
findumars
Views(616)
Comments(0)
Diggs(0)
《自绘ListBox的两种效果》一文帖出之后，从反馈信息来看，大家对这种小技巧还是很认同。接下来我将继续围绕ListBox写一系列的文章，进一步发掘ListBox的潜力，其中包括：自动调整横向滚动条宽度、即时提示（Tips）、拖放插入点提示等，并在最后制作一个在滚动区内的ListBox组。 自动调整 Read More
posted @ 2016-04-15 00:32
findumars
Views(1536)
Comments(0)
Diggs(0)
本文利用Listbox自绘实现了两种特殊效果（见图），左边的风格是自己突然灵感触发想到的，右边的风格来自＂C++ Builder 研究＂的一个帖子，老妖用BCB实现了，这里则用Delphi实现它。演示图片：// unit DrawListItem; interface uses Windows, M Read More
posted @ 2016-04-15 00:27
findumars
Views(1797)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号