027.htm
来自「Delphi书籍--Delphi网上教程」· HTM 代码 · 共 104 行
HTM
104 行
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题文档－程序应用-->如何为Delphi程序添加事件和事件处理器</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题文档－程序应用 如何为Delphi程序添加事件和事件处理器">
<META NAME="description" CONTENT=" - DELPHI专题文档－程序应用 - 如何为Delphi程序添加事件和事件处理器">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index6.html">返回</a>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">如何为Delphi程序添加事件和事件处理器</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p><span style="font-size: 9pt"><font color="#ffffff">----</font> Delphi是一种功能很强的可视化程序开发工具。我们在使用Delphi开发WINDOWS
应用程序的过程中，虽然Delphi为每个可视化组件都提供了很多属性（Property）和事件（Event），但在实际应用中可能会碰到一些自己需要的特殊事件，这些特殊事件Delphi
又没有提供，这时我们就需要为应用程序添加这些特殊事件。当这些事件发生后，又能马上调用处理这些事件的过程。本文通过实例来说明如何为应用程序添加事件和处理事件的过程。
</span>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font> 在Delphi中，事件实际上是专门化的属性，它是一个过程（procedure）的指针。要添加事件，首先应在所定义的类中说明一个用来指向事件过程的指针，该指针的作用是当事件一旦发生，就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符
published公布定义的事件属性以及与之关联的事件处理过程指针。 </span>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font> 本例中，FtooBig为定义的事件处理过程指针，OnTooBig为事件属性名。事件处理过程指针FtooBig通过程序的初始化使之指向过程TooBig1。在Delphi的表单（Form1）上放置三个编辑框，分别为Edit1、Edit2和Edit3，放一按钮Button1。程序中设私有整型变量val1、val2和res，变量res用来记录val1和val2的乘积，并用Edit3显示出来。当通过Edit1和Edit2输入的数据有一个大于100时，会触发一个事件，并调用事件处理过程TooBig1显示一个对话框，说明此事件已经发生并已进行处理。源程序代码如下,
该程序在Delphi 3中调试通过。 </span></p>
<BR>
<pre><span style="font-size: 9pt">
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.
</span></pre>
<BR>
<hr color="#EE9B73" size="1" width="94%">
</TD>
</TR>
</table>
</BODY></HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?