为Delphi程序添加事件和事件处理器

在Delphi中，事件实际上是专门化的属性，它是一个过程（procedure）的指针。要添加事件，首先应在所定义的类中说明一个用来指向事件过

程的指针，该指针的作用是当事件一旦发生，就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符 published公布定义的事件

属性以及与之关联的事件处理过程指针。

private
FpCalc : TNotifyEvent;//事件处理过程指针
published
property OnpCalc:TNotifyevent read FpCalc write FpCalc;{定义事件属性名}

procedure TForm1.pCalc(Sender: TObject);
begin
//
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if assigned(FpCalc) then
OnpCalc(Self);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FpCalc := pCalc;{使事件处理指针指向事件处理器}
end;

转载于:https://www.cnblogs.com/hnxxcxg/archive/2008/04/05/2941038.html

为Delphi程序添加事件和事件处理器相关推荐

delphi frame 添加 create onshow 事件
delphi frame 添加 create onshow 事件 https://www.cnblogs.com/Gufan/archive/2011/09/06/2538932.html proc ...
【Qt】Qt 开发桌面程序 ( Qt 版本 5.14.2 | 编辑 Qt 桌面按钮控件 | 修改按钮文本 | 为按钮添加点击事件 | 系统调用 | 去掉系统调用命令窗口 )
文章目录一.添加按钮控件二.修改按钮文本三.为按钮添加点击事件 ( 弹出对话框 ) 四.为按钮添加点击事件 ( 打开记事本 ) 五.为按钮添加点击事件 ( 打开计算器 ) 六.去掉系统调用时弹出 ...
【Visual Studio 2019】创建 MFC 桌面程序 ( 安装 MFC 开发组件 | 创建 MFC 应用 | MFC 应用窗口编辑 | 为按钮添加点击事件 | 修改按钮文字 | 打开应用 )
文章目录一.安装 MFC 开发组件二.创建 MFC 应用三.MFC 应用窗口编辑四.为按钮添加点击事件五.修改按钮文字六.打开系统其它应用七.博客源码一.安装 MFC 开发组件打开 ...
java关闭事件_为Java程序添加退出事件
package org.swing.os; import java.util.*; import java.io.*; /** * 为Java程序添加退出事件 * * @author wuhq */ ...
在asp.net中为Web用户控件添加属性和事件
在90年代初,Microsoft为Web程序员提供的 Active Server Pages(ASP)革命性地改变了Web的编程.它可以利用十分易用的模型在Web服务器上动态生成HTML,并且很容易的 ...
微信小程序页面左右滑动事件+回到顶部
微信小程序提供了页面的上下滚动的事件,在页面的js文件中, page({ onPageScroll(e) { console.log(e.scrollTop) } }) 但是不是滑动事件,滑动事件需要 ...
php cdi_Swing应用程序中的CDI事件将UI和事件处理分离
php cdi 在愉快地围绕CDI构建我的代码几年之后,使用它根据众所周知的模式来构造我的代码非常自然. CDI是一种旨在在Java EE应用程序服务器中使用的依赖项注入机制,这可能被视为不利. 但是 ...
akka应用_处理Akka应用程序中的每个事件
akka应用这里的事件,那里的事件,到处都是事件. 发布有关检查每一项Akka事件最终都能找到归宿的信息. Akka和基于事件的React式应用程序是创建软件的新方法. 在当前基于Scala的项目中 ...
Swing应用程序中的CDI事件可将UI与事件处理分离
在享受了几年围绕CDI构建我的代码的乐趣之后,使用它根据众所周知的模式来构造我的代码非常自然. CDI是一种旨在在Java EE应用程序服务器中使用的依赖项注入机制,这可能被视为不利. 但是,我想证明 ...

为Delphi程序添加事件和事件处理器

为Delphi程序添加事件和事件处理器相关推荐

最新文章

热门文章