(delphi11最新学习资料) Object Pascal 学习笔记---第10章第3节（事件驱动编程）

10.3 事件驱动编程

在基于组件的程序库中（在许多其他情况下也是如此），您编写的代码不仅仅是一连串平顺的动作序列，而主要是反应的集合。这意味着你应该定义应用程序在发生某些事情时做出“反应”。这里“某些事情”可以是用户操作，例如单击按钮，系统操作，传感器状态的变化，通过远程连接获得的一些数据，或者几乎任何其他事情。

这些外部或内部触发的行动通常称为事件。事件最初是对基于消息的操作系统的映射，如Windows，但从最初的概念到现在已经经历了很长的发展。事实上，在现代程序库中，大多数事件都是在设置属性、调用方法或与给定组件交互时（或间接与另一个组件）交互时触发。

事件和事件驱动编程与 OOP 有什么关系？这两种方法在创建新继承类的时间和方式上与使用更一般的继承类不同。

在纯正的面向对象编程中，每当一个对象具有不同于另一个对象的行为（或不同的方法）时，它应该属于不同的类。我们在几个演示中已经看到了这一点。

让我们考虑以下情况：一个窗体有四个按钮。当你点击每个按钮时，它们需要不同的行为。因此，在纯OOP术语中，你应该有四个不同的按钮子类，每个子类都有一个不同的“click”方法。这种做法形式上是正确的，但需要编写和维护大量的额外代码，增加了复杂性。

事件驱动编程考虑到了类似的情况，建议开发人员为同类按钮对象添加一些行为。这些行为将成为对象状态的装饰或扩展，而不需要一个新的类。这种模式也被称为委托，因为对象的行为被委托给对象自身类以外的类的方法。

不同的编程语言以不同的方式实现事件。例如：

使用方法引用（在 Object Pascal 中称为方法指针）或使用内部方法引用事件对象（如在 C# 中）；
将事件代码委托给实现接口的专门类（如 Java 中的通常做法）；
使用闭包，如 JavaScript 中通常使用的方法（Object Pascal 也支持匿名方法，将在第 15 章中介绍）。然而，在JavaScript中，所有方法都是闭包，因此在这门语言中这两个概念之间的差异有点模糊。

事件和事件驱动编程的概念已变得相当普遍，许多不同的编程语言和用户界面库都支持这一概念。然而，Delphi 实现支持事件的方式却非常独特。下面的内容将详细解释其背后的技术。

10.3.1 方法指针

我们在第4章的最后一部分已经看到，Object Pascal语言有函数指针的概念。函数指针是一个存放函数内存位置的变量，可以用来间接调用函数。函数指针类型具有特定的签名（一组参数类型和一个返回类型，如果有的话）。

同样，Object Pascal语言也有方法指针的概念。方法指针是对属于某个类的方法的内存位置的引用。与函数指针类型一样，方法指针类型也有特定的签名。然而，方法指针携带一些额外的信息，即：方法所属对象（换句话说，当调用该方法时将用作Self参数的对象）。

换一种说法，方法指针是对内存中一个特定对象（特定实例，其数据位于特定内存位置）的方法（位于特定内存地址，为给定类的所有对象共享）的引用。为方法指针赋值时，必须引用给定对象的方法，即特定实例的方法！

注意在底层使用TMethod表示这个概念，如果你查看这个数据结构的定义，你就能够更好的理解方法指针的实现。TMethod记录有两个域，Code和Data，分别表示方法的地址以及方法所属的对象。在其他类似的语言中，代码引用由委托类（C#）或接口方法（Java）捕获。

方法指针类型的声明与过程类型指针的声明相似，不同之处在于在方法指针声明的末尾有of object 关键字：

type
	TIntProceduralType = procedure(Num: Integer);
	TStringEventType = procedure(const S: string) of object;

当你声明了一个方法指针类型（如上文所示）后，你就可以声明一个这种类型的变量，并将任何一个对象的兼容方法赋值给它。什么是兼容方法呢？就是与方法指针类型所要求的参数相同的方法，例如上例中的单字符串参数方法。只要与方法指针类型兼容，任何对象的方法引用都可以赋值给方法指针。

既然已经有了方法指针类型，就可以声明一个这种类型的变量，并为其赋值一个兼容的方法：

type
	TEventTest = class
	public
		procedure ShowValue(const S: string);
		procedure UseMethod;
	end;
	
procedure TEventTest.ShowValue(const S: string);
begin
	Show(S);
end;

procedure TEventTest.UseMethod;
var
	StringEvent: TStringEventType;
begin
	StringEvent := ShowValue;
    StringEvent('Hello');
end;

目前，这段简单的代码并没有真正解释事件的用处，因为它侧重于底层方法指针类型的概念。事件就是基于这种技术实现的、但又超越了这一概念，它将方法指针存储在一个对象（如按钮）中，从而引用另一个对象（如为按钮提供事件处理器的窗体中）的方法。在大多数情况下，事件也是通过属性实现的。