
Delphi组件开发
gencheng
这个作者很懒,什么都没留下…
展开
-
[愿创]让DBGrid支持鼠标滚轮浏览数据,及去除垂直滚动条!
DBGrid一直都不支持鼠标中键滚动,有时候想要去除水平滚动条,让我们自己动手制作一个自定义的DbGrid组件吧! 代码如下:unit AddMsgDBGrid;interfaceuses windows, SysUtils, Messages, Classes, Controls, Grids, DBGrids;type TAddMsgDBGrid = class(原创 2007-04-07 20:19:00 · 3266 阅读 · 0 评论 -
[原创]让RichEdit支持中文搜索、向上查找、区分大小写!(花费一个多星期的成果)!
RichEdit组件本身为文本搜索提供了FindText()方法,但FindText()方法有一个最大的缺点是不支持中文查找,如果在要搜索的字符串中含有中文,哪是无论如何也搜不到的,英文则没有任何问题。并且它只提供了向下查找,不只持向上查找。具体原因你看一下VCL源码就知道了。 如果没有一个好的中文搜索,哪么查找,替换功能就无法实现(事实也确实如此)。只支持英文搜索原创 2007-04-07 19:52:00 · 4778 阅读 · 5 评论 -
[转载]完全掌控PageControl中的右上方的左右箭头事件!
单击PageControl中的右上方的左右箭头时,PageControl的执行结果让人很不满意,我想让它执行我的自定义过程! 下面是ANiDelphi大侠写的组件:unit Unit1;interfaceuses Windows, Messages, Classes, ComCtrls;type TLRClickingEvent = procedure(Sender: T转载 2007-05-12 23:10:00 · 1430 阅读 · 0 评论 -
[原创]在Delphi7中实现What is this?!
Windwos下的通用对话框,如查找,替换,字体选择等等对话框都有一个共同特点:在屏幕的右上角有一个“问号”按钮,当点击这个“问号”时,当前鼠标变为一个?号,用这个?号点击对话框上的控件时,会出现一个带阴影的提示框,显示提示性的文字。 这就是“这是什么?”功能。英文叫"What is this?"功能。 原理:当用?号点击对话框上的控件时,被点击的控件产生WM_HELP消息,D原创 2007-04-25 21:32:00 · 1020 阅读 · 0 评论