如何为Delphi程序添加事件和事件处理器
来源:互联网 发布:unity3d培训机构 编辑:程序博客网 时间:2024/05/18 00:04
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程序添加事件和事件处理器
- 如何为Delphi程序添加事件和事件处理器
- 如何为Delphi程序添加事件和事件处理器
- 如何为Delphi程序添加事件和事件处理器
- 如何为click事件添加beforclick事件
- delphi - 为 Frame 添加 OnShow 事件响应函数.
- 如何在父类中为子类添加事件
- 如何为js控件添加事件监听
- DELPHI如何响应事件
- Qt事件处理器和事件过滤器实例
- Qt事件处理器和事件过滤器实例
- Qt事件处理器和事件过滤器实例
- Qt事件处理器和事件过滤器实例
- 为标尺添加事件。
- 为控件添加事件
- 如何给元素添加事件监听和取消事件冒泡
- JavaScript为事件处理器传递参数
- jQuery为当前或未来的匹配元素添加一个或多个事件处理器
- 【BASH】如何得到用户输入的YES或NO
- 怎样使可编辑的DIV固定大小,当内容多时,就自动出现滚动条
- 解决Cygwin与eclipse没有include的问题
- 关于EditPlus正则表达式替换字符串详解
- zz: PS已经不是唯一的照片处理方式了~(轉)很有用的說咯 看完記得頂下./
- 如何为Delphi程序添加事件和事件处理器
- Ehcache入门指南
- 鼠标屏幕取词 原理
- vb.net中向SQLSERVE数据库存取图片(流的形式)
- unresolved external symbol __beginthreadex错误的解决
- C# Array和ArrayList区别
- 引用呵呵,正宗的,一字不差,多线程 WEBBROWSER
- 放其自然
- Opera下自定义右键菜单的研究