随笔分类 -  Delphi-Controls开发

摘要:Abort 函数 引起放弃的意外处理 Abs 函数 绝对值函数 AddExitProc 函数 将一过程添加到运行时库的结束过程表中 Addr 函数 返回指定对象的地址 AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列 Align 属性 使控件位于窗口某部分 Alig 阅读全文
posted @ 2018-06-14 18:35 findumars 阅读(745) 评论(0) 推荐(0) 编辑
摘要:[cpp] view plain copy print? unit VideoCapture; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl. 阅读全文
posted @ 2017-07-29 21:00 findumars 阅读(907) 评论(0) 推荐(0) 编辑
摘要:因项目需要准备对LISTVIEW的滚动条进行自绘。于是在网上搜了一下,问题没解决,却搜出一篇令人不愉快的帖子 。确实,那时候实力是不够的,但现在应该是没问题了,为这个目的才不断磨练自己的。 LISTVIEW控件的滚动条是系统自带的,它不创建窗口。对LISTVIEW窗口本身进行子类化后,要处理一些跟滚 阅读全文
posted @ 2017-07-17 05:11 findumars 阅读(1971) 评论(0) 推荐(0) 编辑
摘要:http://www.delphifans.com/infoview/Article_629.html 日期:2005年9月6日 作者:arhaha { 满天星共享软件注册服务中心 申明 本软件由满天星共享软件注册服务中心(http://www.star-reg.com/)赞助冠名发布,目的在于促进 阅读全文
posted @ 2017-07-17 05:04 findumars 阅读(1255) 评论(0) 推荐(0) 编辑
摘要:ddd 阅读全文
posted @ 2017-05-15 23:03 findumars 阅读(364) 评论(0) 推荐(0) 编辑
摘要:编写控件的基本步骤 1.确定一个祖先类 2.创建一个组件单元 3.在新控件中添加属性、方法和事件 事件定义方法如下: type private FOnClick:TNotifyEvent ;//( 声明事件变量以保存过程指针) published property OnClick:TNotifyEv 阅读全文
posted @ 2017-04-14 23:41 findumars 阅读(829) 评论(0) 推荐(0) 编辑
摘要:效果如图,支持普通、移上去、按下、弹起、禁用5种状态。 unit BmpBtn; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TButt 阅读全文
posted @ 2017-04-14 22:14 findumars 阅读(2468) 评论(0) 推荐(0) 编辑
摘要:http://download.csdn.net/detail/akof1314/3073289 阅读全文
posted @ 2017-04-11 22:48 findumars 阅读(802) 评论(0) 推荐(0) 编辑
摘要:我们知道使用Delphi快速开发,很大的一方面就是其强大的VCL控件,另外丰富的第三方控件也使得Delphi程序员更加快速的开发出所需要的程序。在此不特别介绍一些概念,只记录自己学习开发控件的步骤。假设我们要开发一个画直线的控件,那么我们从下面开始做:1.菜单栏→Component→New Comp 阅读全文
posted @ 2017-02-02 07:12 findumars 阅读(1957) 评论(0) 推荐(1) 编辑
摘要:自:http://rabbitfox.blog.sohu.com/33264033.html http://community.csdn.net/Expert/topic/5342/5342920.xml?temp=.9525568 问:如何使dbgrid增加一列类似checkbox的控件,可以用鼠 阅读全文
posted @ 2017-02-01 06:51 findumars 阅读(2242) 评论(0) 推荐(0) 编辑
摘要:Listview是一个非常有用的控件,我们常常将大量的数据(如数据库里的数据)导入到Listview中,有的时候我们需要编辑Listview里的数据,而它并不提供编辑的功能,怎么样才能使它具有编辑功能呢?你可以试试下面这种方法。 首先在FORM1中放置一个Listview控件和一个Eeit控件。Ed 阅读全文
posted @ 2017-02-01 06:31 findumars 阅读(1103) 评论(0) 推荐(0) 编辑
摘要:type TMenuHintWindow = class(THintWindow) private FTimerShow: TTimer; FTimerHide: TTimer; procedure TimerShowTimer(Sender: TObject); procedure TimerHi 阅读全文
posted @ 2017-01-24 22:21 findumars 阅读(729) 评论(0) 推荐(0) 编辑
摘要:http://www.cnblogs.com/del/archive/2010/04/24/1719631.html 阅读全文
posted @ 2016-11-03 22:17 findumars 阅读(317) 评论(0) 推荐(0) 编辑
摘要:问题来源: http://www.cnblogs.com/del/archive/2009/03/09/1234066.html#1471535 本例效果图: 自定义类(TMyShape)单元 : 调用测试: http://www.cnblogs.com/del/archive/2009/03/09 阅读全文
posted @ 2016-11-03 22:13 findumars 阅读(631) 评论(0) 推荐(0) 编辑
摘要:代替 TSplitter 的 TDirPanel 类: 调用测试: http://www.cnblogs.com/del/archive/2011/05/12/2044635.html 阅读全文
posted @ 2016-11-03 21:46 findumars 阅读(488) 评论(0) 推荐(0) 编辑
摘要:程序中用 TPanel 做了容器, 需要给它一个背景图片; 发现这竟是个难题!发现我经常使用的滚动箱控件 TScrollBox, 是一个很好的替代品.本例需要先添加两个图片资源, 添加方法可以参考: http://www.cnblogs.com/del/archive/2008/08/23/1274 阅读全文
posted @ 2016-11-03 21:39 findumars 阅读(535) 评论(0) 推荐(0) 编辑
摘要:控件的祖先 TControl 有很多功能, 但它的有些子孙确丧失了很多(为了专用).譬如 TBevel 就没有把一些常规的事件继承下来, 那些没有被继承的功能一般都隐藏在 protected 区, 如果重新继承是可以使用的.这里尝试了另外一种方法: 自己没有继承时, 问一问有继承的兄弟、叔伯获取其它 阅读全文
posted @ 2016-11-03 19:05 findumars 阅读(400) 评论(0) 推荐(0) 编辑
摘要:以前写代码, 总是把主单元弄得满满当当; 现在更喜欢把控件比较独立的功能写成一个单元, 改写属性、重载方法...哪怕只有一点点和默认不同, 也喜欢独立出来.刚刚用到 TListBox, 需要能拖动元素、双击删除. 测试: http://www.cnblogs.com/del/p/3210460.ht 阅读全文
posted @ 2016-11-03 19:00 findumars 阅读(513) 评论(0) 推荐(0) 编辑
摘要:本例效果图: 代码文件: http://www.cnblogs.com/del/archive/2008/10/23/1317926.html 阅读全文
posted @ 2016-11-03 17:43 findumars 阅读(569) 评论(0) 推荐(0) 编辑
摘要:http://www.cnblogs.com/kfarvid/archive/2010/01/18/1651154.html 阅读全文
posted @ 2016-10-12 00:48 findumars 阅读(813) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示