Delphi中Sender对象的知识

Posted 2021-01-10 jijm123

Sender是一个TObject类型的参数，它告诉Delphi哪个控件接收这个事件并调用相应的处理过程。你可以编写一个单一的事件处理句柄，通过Sender参数和IF…THEN…语句或者CASE语句配合，来处理多个构件。发生事件的构件或控件的值已经赋给了Sender参数，该参数的用途之一就在于：可以使用保留字IS来测试Sender，以便找到调用这个事件处理句柄的构件或控件的类型。例如，将表单中编辑框和标签的Click事件的处理句柄都指向表单的xxx过程，编辑框和标签对Click事件有不同的反应：
　　procedure TForm1xxx(Sender:TObject);
　　begin
　　if(sender is Tedit) then
　　showmessage(′this is a editbox′);
　　if(sender is Tlabel) then
　　showmessage(′this is a label′);
　　end;
　　Sender参数的第二个用途是结合AS操作符进行类型转换，将若干个派生于某一父类的子类强制转换成该父类。例如表单中有一个TEdit类控件和一个TMemo控件，它们实际上都派生于TcustomEdit类，如果你要为二者的某一事件提供同样处理，可以将二者事件句柄都指向自定义的过程yyy:
　　Procedure TForm1.yyy(Sender:TObject);
　　begin
　　(sender as TcustomEdit).text:=′This is some demo text′;
　　end;
　　在过程中，AS操作符将TEdit类和TMemo类均强制转换成TcustomEdit类，再对TcustomEdit类的属性赋值。注意这种转换必须符合Delphi中类的层次关系。
　　使用Sender参数可以通过单一过程段处理多类控件，真正体现了Delphi面向对象的重用性。

-----------------------
Delphi之Sender

Sender其实就是函数的一个参数，你看看VCL中触发事件的代码，就会发现Sender往往代表了 “事件的触发者”，或者说“这个外挂的事件处理函数的调用者”，目的是为了让事件处理函数有一个参考尤其是当一个事件处理函数挂接到多个实例时。

//看个例子
procedure THappy.MakeLove;
var
bCancel :Boolean;
bNeedBath :Boolean;
bHappy :Boolean;
begin
bCancel := False;
bNeedBath := True;

if assigned(FOnBeforeMakeLove) then
FOnBeforeMakeLove(Self, bNeedBath, bCancel);

if bCancel then Exit;
if bNeedBath then GotoBath;

bHappy := DoMakeLove(Self.Boy, Self.Girl);

if assigned(FOnAfterMakeLove) then
FOnAfterMakeLove(Self, bHappy);
end;

procedure XXXBeforeMakeLove(Sender :TObject; var ANeedBath, ACancel :Boolean);
begin
if Sender is THappy then begin
if (THappy(Sender).Boy <> me) or (THappy(Sender).Girl.Age < 16)
or (THappy(Sender).Girl.Age > 25) then
begin
ACancel := True;
end;
ANeedBath := OfCourseTrue;
end;
end;

procedure XXXAfterMakeLove(Sender :TObject; const AHappy :Boolean);
begin
if AHappy then
begin
ShowMessage(‘爽歪歪...‘);
end
else begin
ShowMessage(‘555...‘);
end;
end;

-------

这个东西感觉还是比较抽象的。需要慢慢的细细体会。
从理论上讲Sender是一个四个字节的指针变量，里面存放的指针内容是（堆）栈中对象实体的首字节地址。我们在每次在设计APP的时候，会在Object Inspector里面双击事件属性来建立我们需要的代码，以完成预期的功能。当我们进行双击的时候，Delphi的IDE（Integreted Development Environment）会为我们自动建立与事件属性对应的过程，例如，当我们双击Form1变量的OnClick属性时，IDE会自动在TForm1类 的初始化部分创建如下的代码：
procedure TForm1.Form1Click(Sender:TObject);
同时在实现部分创建上述过程的框架，如下：
procedure TForm1.Form1Click(Sender:TObject);
begin
//初始情况下，这里并没有任何代码！
end;
然后我们在程序中可以调用这个建立好的方法，例如我们在窗体上的Button1的OnClick方法中执行如下代码：
...
Self.Form1Click(Button1);
...
同时，我们假设在Form1Click中代码如下：
...
if Sender=Button1 then
ShowMessage(TButton(Sender).Caption); //这里在判断条件为真的情况下使用强制转换
...
可以看到在代用Form1Click时，为其传递的Sender参数可以自己定义，因此严格来讲Sender参数并不代表真正触发此事件对应方法的对象，确切的说应该是用户指定的触发此事件对应方法的对象！

Sender表示触发当前事件代码的对象，而Self才表示当前方法指针指向的方法所属的对象
例如对于TForm的对象Form1，起OnClick事件中包含参数Sender，如下

procedure TForm1.FormClick(Sender:TObject);
这里的FormClick实际是Delphi的IDE在设计期为你在窗口类的初始化未命名部分自动建立的方法，但他的可见性是Pulished的，因此具有RTTI信息！！！！

在运行期间，当前的方法指针FClick指向的方法属性（即事件）OnClick所属于的对象为TForm1的实例Form1，因此Self代表的就是对 象Form1，而触发这个事件的对象不一定是Form1，有可能是Button1，所以Sender需要进行判断。你可以在Button1的 OnClick事件中调用如下代码：
Form1.OnClick（Button1）；
这个时候在Form1的OnClick事件中对Sender进行判断就是Button1，而不是Form1了！

需要注意的是，由于Sender的类型为TObject，因此实际使用的时候最好进行类型转换！！！！使用As运算符！！！！