如何为delphi程序添加事件和事件处理器 (2000年11.txt

自己对DELPHI学习的一点体会

如何为Delphi程序添加事件和事件处理器 (2000年11月29日) 

本站更新  分类:   作者:潘汉杰  推荐:   阅读次数:530  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
河南金融管理学院 潘汉杰

----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显示
一个对话框，说明此事件已经发生并已进行处理。源程序代码如下,该程序在Delphi3中调
试通过。

unitUnit1;
interface
uses
Windows,Messages,SysUtils,Classes,
Graphics,Controls,Forms,Dialogs,
StdCtrls;
type
TForm1=class(TForm)
Edit1:TEdit;{输入第一个整数}
Edit2:TEdit;{输入第二个整数}
Edit3:TEdit;{输出前二个整数的积}
Button1:TButton;
procedureButton1Click(Sender:TObject);
procedureTooBig1(Sender:TObject);
{当事件触发后调用此过程}
procedureFormCreate(Sender:TObject);
private
val1,val2,res:integer;{val1和val2存放输入的两个整数，res存放两数的积}
FTooBig:TNotifyEvent;{定义一个指向事件处理器的指针FTooBig}
{Privatedeclarations}
public
{Publicdeclarations}
published
propertyOnTooBig:TNotifyeventread
FTooBigwriteFTooBig;{定义事件}
end;

var
Form1:TForm1;
implementation
{$R*.DFM}
procedureTForm1.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
ifassigned(FTooBig)thenOnTooBig(Self);
end;

procedureTForm1.TooBig1(Sender:TObject);
begin
Application.MessageBox('TooBig','TestEvent!',MB_OK);
end;

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

end.