相关推荐
-
delphi-event-bus:Delphi事件总线(简称DEB)是Delphi的事件总线框架
DEB一个用于Delphi的事件总线框架 Delphi Event Bus(简称DEB)是一个用于Delphi平台的发布/订阅Event Bus框架。 DEB旨在分离应用程序的不同部分/层,同时仍然允许它们进行有效的通信。 它受到Android平台的EventBus框架的启发。 给它一颗星 请在GitHub上为该项目“加注星标”! 它不花任何钱,但有助于参考代码 特征 简便易用: DelphiEventBus非常易于学习和使用,因为它尊重KISS和“配置公约”的设计原则。 通过使用默认的TEventBus实例,您可以立即开始交付并接收事件 设计用于分离应用程序的不同部分/层 事件驱动 基于属性的API:只需将“订阅”属性放在您的订阅者方法上,就可以接收特定事件 支持不同的传递模式:在“订阅”属性中指定TThreadMode,无论事件发布在何处,都可以选择在“主线程”或“后台线程”中传递事
-
Delphi 7事件的多处理机制
Delphi 7事件的多处理机制Allen Tao2007-08-19 首先解释一下这个题目。在我使用Delphi 7的过程中发现,一个对象的事件只能被一个过程处理。如果多次给这个对象的事件赋给处理事件的过程,最后真正处理事件的将是最后赋值的那个过程。例如,有类TMyClass中定义了一个事件OnSomeFired,在类TClientClass中该类被实例化,它的事件被处理。如下所示:co
-
Delphi中控制台程序和创建窗体并响应事件(不使用VCL创建窗体)
Delphi winApi 创建窗口
-
在DELPHI中动态创建控件以及控件的事件
在DELPHI中我们经常要动态的创建控件以及控件的事件。例如,我们可能想根据程序需要动态的创建一些Tshape组件来创建某个图形,并使得在鼠标移动上去之后可以完成某些操作。这一般需要需要三步: 生成一个制定组件类的实例 为这个实例付初值 在使用完毕后,释放资源 下面将通过一个例子来演示,例子的功能是动态创建一个Tshape的实例MyShap
-
delphi给自定义组件加事件
组件里面: private {Privatedeclarations} FInterVal:Integer; FTimer:TTimer; FOnClick:TNotifyEvent; procedureCMOnClick(varMessage:TMessage);messageWM_LBUTTONDOWN;//鼠标左键按下publish...
-
delphi——自定义事件的实现
下面 实现了两个自定义事件 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) edtcheng1:
-
Delphi中的事件处理过程
Delphi的事件是属性的一种特别类型,事件处理过程系由windows捕获消息再将消息封装成事件的过程。如下是以 OnMouseDowng事件为例,说明事件的执行过程。以下是在controls.pas里的代码: //定义事件的方法指针,TMouseEvent 是一种鼠标事件类型,是过程指针。TMouseEvent = procedure(Sender: TObject; Button:
-
Delphi TFrame作为TForm框架 添加 OnShow 事件
Delphi TFrame作为TForm框架 添加 OnShow 事件
-
Delphi 动态绑定事件处理函数过程
Delphi 动态绑定事件 指定事件处理函数过程 绑事事件自定义函数过程 测试完全可用,含源码文本.
-
Delphi 动态创建控件,并绑定控件事件
type TForm13 = class(TForm) Button1: TButton; ScrollBox1: TScrollBox; procedure Button1Click(Sender: TObject); private { Private declarations } procedure myClick(...
-
Delphi控件开发浅入深出(四)
四、对特定字符串敏感的Edit控件 我们这个控件将演示控件的自定义事件的书写。这个控件有一个类型为string的SensitiveText属性,当用户在输入框中输入的文字为InvalidText时就会触发OnSensitiveText事件。按照惯例,我先把源码展示给大家: unit TextSenseEdit; interface uses Sys...
-
Delphi 7中处理TEdit鼠标进入 离开事件
在盒子论坛上看见一Delpher提出要求说:在鼠标进入TEdit控件时弹出消息框,我扩展了TEdit功能,把它封装成了一个组件,代码如下 1 unit MyEdit; 2 3 interface 4 5 uses 6 SysUtils, Classes, Controls, StdCtrls,Messages,Dialogs,Forms,Windows;...
-
Events (Delphi)Delphi中事件
Events (Delphi)Delphi中事件
-
delphi中form创建及销毁事件的处理顺序
Delphi中Form有非常多的事件,他们每个
-
Delphi 事件触发!
事件通知!1.先写一个事件触发类。unit UNotifyProcess; interface uses Windows, Registry, SysUtils, StrUtils, winsock, Classes, Contnrs, Dialogs; const Restart_Stocket = 0; Allow_Work = 1; Forbid_Work = 2; typ
1 楼 xfuajiao 2009-11-17 09:26