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

原创 2002年11月04日 13:06:00

  Delphi是一种功能很强的可视化程序开发工具。我们在使用Delphi开发WINDOWS 应用程序的过程中,虽然Delphi为每个可视化组件都提供了很多属性(Property)和事件(Event),但在实际应用中可能会碰到一些自己需要的特殊事件,这些特殊事件Delphi 又没有提供,这时我们就需要为应用程序添加这些特殊事件。当这些事件发生后,又能马上调用处理这些事件的过程。本文通过实例来说明如何为应用程序添加事件和处理事件的过程。

  在Delphi中,事件实际上是专门化的属性,它是一个过程(procedure)的指针。要添加事件,首先应在所定义的类中说明一个用来指向事件过程的指针,该指针的作用是当事件一旦发生,就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符 published公布定义的事件属性以及与之关联的事件处理过程指针。

  本例中,FtooBig为定义的事件处理过程指针,OnTooBig为事件属性名。事件处理过程指针FtooBig通过程序的初始化使之指向过程TooBig1。在Delphi的表单(Form1)上放置三个编辑框,分别为Edit1、Edit2和Edit3,放一按钮Button1。程序中设私有整型变量val1、val2和res,变量res用来记录val1和val2的乘积,并用Edit3显示出来。当通过Edit1和Edit2输入的数据有一个大于100时,会触发一个事件,并调用事件处理过程TooBig1显示一个对话框,说明此事件已经发生并已进行处理。源程序代码如下, 该程序在Delphi 3中调试通过。

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, 
Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;    {输入第一个整数}
    Edit2: TEdit;    {输入第二个整数}
    Edit3: TEdit;    {输出前二个整数的积}
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
procedure TooBig1(Sender: TObject);   
  {当事件触发后调用此过程}
    procedure FormCreate(Sender: TObject);
  private
val1,val2,res:integer; {val1和val2存放输入的两个整数,res存放两数的积}
FTooBig : TNotifyEvent;   {定义一个指向事件处理器的指针FTooBig}
    { Private declarations }
  public
    { Public declarations }
  published
property  OnTooBig:TNotifyevent read 
FTooBig write FTooBig;{定义事件}
  end;

var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
  val1 := StrToInt(Edit1.Text);
  val2 := StrToInt(Edit2.Text);
  if(val1< 100)and(val2< 100) then
    begin
      res := val1*val2;
      Edit3.Text := IntToStr(res);
    end
  else
    if assigned(FTooBig) then   OnTooBig(Self);
end;

procedure TForm1.TooBig1(Sender: TObject);
begin
Application.MessageBox('Too Big',' Test Event! ',MB_OK);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  val1:=1;
  val2:=1;
  FTooBig := TooBig1;{使事件处理指针指向事件处理器}
end;

end.

[delphi]如何为Delphi程序添加事件和事件处理器

====================================================== 注:本文源代码点此下载 =============================...
  • javazhuanzai
  • javazhuanzai
  • 2012年02月01日 07:28
  • 224

如何为Delphi程序添加事件和事件处理器方案

如何为Delphi程序添加事件和事件处理器方案Delphi是一种功能很强的可视化程序开发工具。我们在使用Delphi开发WINDOWS 应用程序的过程中,虽然Delphi为每个可视化组件都提供了很多属...
  • stephenewong
  • stephenewong
  • 2006年12月14日 15:03
  • 648

Delphi 自定义事件的例子

我们这个控件将演示控件的自定义事件的书写。这个控件有一个类型为string的SensitiveText属性,当用户在输入框中输入的文字为InvalidText时就会触发OnSensitiveText事...
  • cml2030
  • cml2030
  • 2008年10月28日 11:36
  • 6284

Delphi 7 定义你自己的事件

定义新的事件完全是比较少见。然而,当一个组件介绍行为是完全不同于任何其他组件不同,所以你需要为它定义一个事件。...
  • akof1314
  • akof1314
  • 2011年04月26日 11:35
  • 6981

vs2005 MFC 窗体添加事件

打开Resource View 选项卡,选中对话框,右键单击打开属性窗口,在属性窗口中点消息按钮会列出所有的窗口的可用消息,在其中找到需要的消息,点后面的下拉按钮会出现"add ......",点击它...
  • jingjing_123
  • jingjing_123
  • 2009年01月12日 16:30
  • 3078

ActiveX控件的属性、事件和方法

  ActiveX控件的属性、事件和方法什么是ActiveX控件:一个进程内服务器,支持多种的COM接口。(可以理解为,一个COM接口是一个纯抽象基类,你实现了它,并且它支持自注册,就是一个Activ...
  • cdpc0202
  • cdpc0202
  • 2006年10月10日 11:22
  • 2396

delphi中form创建及销毁事件的处理顺序

Delphi中Form有非常多的事件,他们每个
  • zkrui2008
  • zkrui2008
  • 2014年10月27日 18:04
  • 1371

如何让编辑框响应鼠标单击

鼠标单击会产生WM_LBUTTONDOWN消息,此消息属于标准窗口消息。标准窗口消息的路由是从子类向父类传递,因此我们可以利用标准消息的路由来实现。默认情况下编辑框是不响应鼠标单击的,因为当你单击编辑...
  • tiantangniao232
  • tiantangniao232
  • 2007年03月08日 20:54
  • 2620

asp.net 中对datagrid中的BUTTON应用CSS样式

在asp.net中,如果要对某个按钮,TEXTBOX应用样式,可以利用CSSCLASS属性,比如其中,abc是你自己定义的CSS样式,而如果要对datagrid中的button应用css样式,如果...
  • jackyrongvip
  • jackyrongvip
  • 2005年01月15日 20:36
  • 645

Delphi 中的常用事件

原文地址:中的常用事件" style="text-decoration:none; color:rgb(7,67,135)">Delphi 中的常用事件作者:星云月 序号...
  • wozengcong
  • wozengcong
  • 2013年09月28日 22:38
  • 1787
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何为Delphi程序添加事件和事件处理器
举报原因:
原因补充:

(最多只允许输入30个字)