随笔分类 -  Delphi-事件

摘要:本文来自:http://www.cnblogs.com/hezihang/p/6083555.html Delphi采用接口方式设计模块,可以降低模块之间的耦合,便于扩展和维护。本文提供一个实现基于接口(IInterface)方式的监听器模式(观察者模式、订阅者模式),实现一个自动多播器。 下面程序 阅读全文
posted @ 2019-09-24 16:52 findumars 阅读(449) 评论(0) 推荐(0) 编辑
摘要:1.锁住空间的位置,可以选择Edit >Lock component ,也可以在窗体设计面板下面找到组件排版功能栏,第二排里面有个带锁的图标,表示组件可以被锁住。点击一下,组件的大小和位置就不可改变了。 2.procedure没有返回值,Function有返回值; 3.为过程生明添加过程定义;Ctr 阅读全文
posted @ 2018-10-09 00:58 findumars 阅读(1939) 评论(0) 推荐(0) 编辑
摘要:参数传递方法 李纬的InsideVCL《第一章》中提到Windows定义的回调函数 typedef LRESULT (CALLBACK*WNDPROC)(HWND,UNIT,WPARAM,LPARAM) 为了加快回调函数执行的效率,Microsoft使用了CALLBACK修饰关键词来定义WNDPRO 阅读全文
posted @ 2018-05-30 21:12 findumars 阅读(1044) 评论(0) 推荐(0) 编辑
摘要:以下代码仅仅是测试代码:delphi XE7 UP1 [delphi] view plain copy interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,  阅读全文
posted @ 2018-01-05 21:10 findumars 阅读(1101) 评论(0) 推荐(0) 编辑
摘要:Delphi的基于接口(IInterface)的多播监听器模式(观察者模式 )http://www.cnblogs.com/hezihang/p/6083555.html利用RTTI实现Delphi的多播事件代理研究http://www.cnblogs.com/hezihang/p/3299481. 阅读全文
posted @ 2017-05-14 23:33 findumars 阅读(315) 评论(0) 推荐(0) 编辑
摘要:原文地址:Delphi事件的广播 转作者:MondaySoftware 明天就是五一节了,辛苦了好几个月,借此机会应该尽情放松一番。可是想到Blog好久没有写文章,似乎缺些什么似的。这几个月来在项目中又增长了许多经验,学到许多实际应用的知识。不如把一些比较有用的记录下来,供朋友们参考可好。 我想到D 阅读全文
posted @ 2017-02-23 23:01 findumars 阅读(714) 评论(2) 推荐(0) 编辑
摘要:TOnUserInfoShow = procedure(userName:string;userAge:Integer)of object;//定义事件模型中的回调函数原型 TUserInfo = class private FName:string; FAge:Integer; FOnUserIn 阅读全文
posted @ 2016-10-14 22:27 findumars 阅读(423) 评论(0) 推荐(0) 编辑
摘要:疯狂delphi delphiXE7、XE8、XE10公开课A 群号:58592705 疯狂delphi delphiXE7、XE8、XE10公开课A 群号:58592705 疯狂delphi delphiXE7、XE8、XE10公开课A 群号:58592705 delphi回调函数 文章来源: h 阅读全文
posted @ 2016-09-05 23:13 findumars 阅读(943) 评论(0) 推荐(0) 编辑
摘要:dddd 阅读全文
posted @ 2016-08-27 14:45 findumars 阅读(287) 评论(0) 推荐(0) 编辑
摘要:http://topic.csdn.net/t/20020104/09/456913.html CM_MouseLeave消息好象不太灵敏,当鼠标快速移出窗体时,就收不到这个消息,请问大家有什么好办法吗? #1楼 得分:0回复于:2002-01-04 09:32:23那就用上一级组件的CM_Mous 阅读全文
posted @ 2016-08-27 03:27 findumars 阅读(687) 评论(0) 推荐(0) 编辑
摘要:要实现子窗体与父窗体之间的通讯,有多种方法(比如:重载子窗体的构造函数,将父窗体的引用作为参数传递给子窗体)。下面我要介绍的是利用自定义事件的方法,它能够最大程度的避免模块之间的耦合,充分体现面向对象的优点。 先将效果图展示给大家: 下面是实现代码: Unit2 //子窗体 type //声明自定义 阅读全文
posted @ 2016-08-22 02:02 findumars 阅读(676) 评论(0) 推荐(0) 编辑
摘要:Delphi组件的常用事件Onclick——当单击时触发这个事件中的代码Onchange——当改变该组件内容时触发其中的代码Oncreate——当创建时触发这个事件中的代码Onclose——当关闭的时候触发其中的代码OnKeyDown——当按下键盘上的键时触发该处代码OnKeyUp——当松开键盘上的 阅读全文
posted @ 2016-06-20 04:22 findumars 阅读(2666) 评论(0) 推荐(1) 编辑
摘要:回调函数 回调(CallBack)函数就是一种两个对象之间的通知方法。被通知者事先约定好发生某种情况时的处理函数,在该情况发生时发起通知者调用该处理函数以完成回调 类似观察者模式, 一个对象(发布者)内部公布一个接口(TCallBackFunc), 对它感兴趣的类(TA)(订阅者)实现的具体执行方法 阅读全文
posted @ 2016-03-25 22:21 findumars 阅读(763) 评论(0) 推荐(0) 编辑
摘要:Delphi回调函数及其使用 1 回调函数的概述 回调函数是这样一种机制:调用者在初始化一个对象(这里的对象是泛指,包括OOP中的对象、全局函数等)时,将一些参数传递给对象,同时将一个调用者可以访问的函数地址传递给该对象。这个函数就是调用者和被调用者之间的一种通知约定,当约定的事件发生时,被调用者( 阅读全文
posted @ 2016-03-18 23:53 findumars 阅读(5719) 评论(0) 推荐(0) 编辑
摘要:上篇文章写了将事件分离成类的方法来实现事件的广播,这次将参考观察者模式来实现事件的广播。模式中主要有这两个角色: 发布者:发布者保存着一张观察者的列表,以便在必要的时候调用观察者的方法。 观察者:观察者是现实某些特定接口的类,对于发布者来说,它只关注这些接口,并不关注观察者具体是什么类。 为了让发布 阅读全文
posted @ 2016-03-18 23:39 findumars 阅读(380) 评论(1) 推荐(0) 编辑
摘要:明天就是五一节了,辛苦了好几个月,借此机会应该尽情放松一番。可是想到Blog好久没有写文章,似乎缺些什么似的。这几个月来在项目中又增长了许多经验,学到许多实际应用的知识。不如把一些比较有用的记录下来,供朋友们参考可好。 我想到Delphi的事件,那可真是个方便的东西,初学者在窗体上拉几个控件,并指定 阅读全文
posted @ 2016-03-14 23:05 findumars 阅读(584) 评论(1) 推荐(0) 编辑
摘要:http://www.xuebuyuan.com/1889769.html Classes单元的AllocateHWnd函数是需要传入一个处理消息的类的方法的作为参数的,原型: function AllocateHWnd(Method: TWndMethod): HWND; 很多时候,我们想要创建一 阅读全文
posted @ 2016-03-05 00:15 findumars 阅读(283) 评论(0) 推荐(0) 编辑
摘要:本质上TImage与TSpeedButton没有什么区别,都是没有句柄的,但都可以执行OnClick事件。有空分析一下。 阅读全文
posted @ 2016-02-08 18:20 findumars 阅读(623) 评论(0) 推荐(0) 编辑
摘要:.NET中有委托(Delegate)的概念,其声明形式如下所示: publicdelegatevoid MyDelegate(int aIntParam, string aStringParam); 依个人所见,委托实际上就是规定一种接口,提供一种规范,任何符合该委托签名的函数/过程都属于同一类。... 阅读全文
posted @ 2015-12-30 00:00 findumars 阅读(2062) 评论(0) 推荐(0) 编辑
摘要:delphi中经常见到以下两种定义Type TMouseProc = procedure (X,Y:integer); TMouseEvent = procedure (X,Y:integer) of Object;两者样子差不多但实际意义却不一样,TMouseProc只是单一的函数指针类型;TMo... 阅读全文
posted @ 2015-12-29 23:58 findumars 阅读(560) 评论(0) 推荐(0) 编辑