这是以前写的代码，自绘XP风格的菜单，硬盘坏了后以为没了，最后写的一个软件要自定义风格，“翻箱倒柜”的终于在我可爱的古董机^_^上找到了一个应用的例子。还是把它放到Blog上来，即可共享又可作为备用 :) 把主菜单的OnMeasureItem指向MeasureMainItem、OnAdvancedD Read More
posted @ 2016-04-15 00:35
findumars
Views(405)
Comments(0)
Diggs(0)
鼠标拖放插入点提示 鼠标拖放是Windows常见的操作，比如拷贝文件就可用拖放方式进行。在我们编写的应用程序中，有时为了方便用户操作需要支持鼠标拖放。对于大部分的VCL控件只要鼠标将DragMode设为dmAutomatic，就可以在OnDragDrop、OnDragOver和OnEndDrag中处 Read More
posted @ 2016-04-15 00:33
findumars
Views(619)
Comments(0)
Diggs(0)
《自绘ListBox的两种效果》一文帖出之后，从反馈信息来看，大家对这种小技巧还是很认同。接下来我将继续围绕ListBox写一系列的文章，进一步发掘ListBox的潜力，其中包括：自动调整横向滚动条宽度、即时提示（Tips）、拖放插入点提示等，并在最后制作一个在滚动区内的ListBox组。 自动调整 Read More
posted @ 2016-04-15 00:32
findumars
Views(1543)
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(1804)
Comments(0)
Diggs(0)
最近在程序中增加了每日一帖的功能，搜索一下网站的程序，发现大部分是用Memo实现，而我用的是TWebBrowser基于HTML做，故帖出来共享一下。 PAS源码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Cl Read More
posted @ 2016-04-15 00:12
findumars
Views(485)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号