请教一下SENDER的功能和用法

把Sender转换为TFiedl对象~~~

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

Sender 的类型是Tobject，Tobject是所有对象的总称
（Sender As TField)是把sender强制类型转换为TField
Sender 的类型是Tobject，Tobject是所有对象的总称
（Sender As TField)是把sender强制类型转换为TField
Sender是该事件或方法调用的调用者实例，你所举的这个例子肯定是一个字段的事件，其调用者就是该字段。加个as TField是因为Sender是TObject类型，Delphi是强类型检查，所以要进行强制类型转换，将其转换为TField类型进行赋值。
通俗的来说，这个sender所在的事件是哪个对象的属性，这个sender就是指谁。当然如果有多个同类的对象都执行同一段事件代码时，则是谁执行的，
这个sender就是指谁。
比如：Tform1.Button1Click(Sender:TObject)
      begin
        这里的click事件就是button1的一个事件，那么sender一般指button1,当如果button2的Click 事件也是这个的话，那么执行时，这个
sender就是button2, 明白？
      end;
sender一般来说就是指你所操作的控件本身（Sender As TField）.asfloat:=strtofloat(s);//是指你所选的字段值以浮点型来操作，由s转换成float来赋给它。
sender一般来说就是指你所操作的控件本身（Sender As TField）.asfloat:=strtofloat(s);//是指你所选的字段值以浮点型来操作，由s转换成float来赋给它。
我选取了一些别人对sender的认识，你看过就会明白了。实际上，许多事件中把这个 Sender 当作触发事件者，由于对象类型不确定
利用 OBJECT PASCAL 的多态性将其设置为 TOBJECT。你可以用 IS 来得到
其相容类型，AS 把它作为一种相容类型使用。
例子已经给了，不管 SENDER 什么事，这是 Tobject 的事。
--------------------------------------------------------------------------------------
sender 一般是指示这个事件是谁触发的，并且通过将Sender强制转化成另一种
对象，并访问对象中的属性。例如：
  TForm1.Button1Click(Sender:TObject);
                          /|\
                           |
                          Sender 代表是Button1触发的事件
  beign
    if Button1 is TButton then //判断是否Sender是否是TButton的实例
       (Sender as TButton).Caption:='[email protected]';  //改变Button1.Caption
  end;
--------------------------------------------------------------------------------------
再看一看我转贴的内容：
===================
二、Self和Sender的区别：　　在事件处理程序参数表中，至少含有一个参数Sender,它代表触发事件处理程序
的构件，如在上例中，Sender就指Button2，有了Sender参数，可以使多个构件共
用相同的事件处理程序，如下例：
　　Procedure Tform1.Buttonclick(Sender:Tobject);
　　Begin
　　If sender=button1 then
　　Label1.caption:=′看庭前花开花落
′ 　　Else Label2.caption:=′望天上云卷云舒′
　　End；
　　在此例中，Button1,Button2共用了Buttonclick事件处理程序。
　　Self是指所编的程序范围是在哪一个类中，Delphi中大都在窗体范围内编程，
因此，self即指窗体，如果在编写一个类或是一个组件，则self指该类或组件。我
们在函数或过程的声明中可看出self是代表哪个组件，即self代表‘.’号之前的
组件，如在第一个例子中，self代表Tform1。另外应注意，self只能用在类方法
中，而不能用在过程或函数中，如下例用法是错的:
Function a1(B:Integer):Integer;
　　Begin
　　……
　　Button:=tbutton.create(self)；……
　　End；
--------------------------------------------------------------------------------------Delphi中易混淆的概念
====================
原始作者：林毅　　一、Owner和Parent的区别：　　Parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下：
　　(1)在Form1的窗体上，放一个Panel1,并将Panel1拉大，
　　(2)在Panel1上放一Button1；
　　(3)在Form1上放一Button2。
　　现在如果移动Panel1,则Button1随着Panel1移动，这是因为Button1的Parent是Panel1。
现在将Button2移到Panel1上，再次移动Panel1,Button2并不跟着移动，这是因为Button2的
Parent是Form1。除在窗体设计中，应注意构件的Parent是谁外，在动态创建构件时，也应
指出构件的Parent，如在上例中继续操作：
　　1)Procedure Tform1.Button2click(Sender:Tobjet);
　　2)Var
　　3) Button:Tbutton;
　　4) Begin
　　5) Button:Tbutton.cerate(self);
　　6) Button.parent=panel1;
　　7) Button.lleft=0;
　　8) Button.top=0;
　　9) Button.caption:='OK';
　　10) End；
　　当按Button2时，将在Panel1上创建一个Button，而如果把第6句改为Button.parent:=self；
按Button2时，将在Form1上创建一个Button了。如果将第6句删除，按Button2时，什么都不会发
生，这是因为创建方法无法知道应在哪里显示构件。
　　Owner属性是指构件的所有者，它负责构件的创建和释放。如在上例中，系统默认窗体上所有
构件的所有者是窗体，而窗体的所有者是Application。顺便指出，create方法应带有表示构件所
有者的参数，如在上例中，构件所有者是窗体，即self。
　　Parent属性和Owner属性是运行阶段的属性，只能在运行阶段，通过代码设置。　　
二、Self和Sender的区别：　　在事件处理程序参数表中，至少含有一个参数Sender,它代表触发事件处理程序的构件，如在
上例中，Sender就指Button2，有了Sender参数，可以使多个构件共用相同的事件处理程序，如下例：
　　Procedure Tform1.Buttonclick(Sender:Tobject);
　　Begin
　　If sender=button1 then
　　Label1.caption:=′看庭前花开花落
′ 　　Else Label2.caption:=′望天上云卷云舒′
　　End；
　　在此例中，Button1,Button2共用了Buttonclick事件处理程序。
　　Self是指所编的程序范围是在哪一个类中，Delphi中大都在窗体范围内编程，因此，self即指
窗体，如果在编写一个类或是一个组件，则self指该类或组件。我们在函数或过程的声明中可看出
self是代表哪个组件，即self代表‘.’号之前的组件，如在第一个例子中，self代表Tform1。另外
应注意，self只能用在类方法中，而不能用在过程或函数中，如下例用法是错的:
Function a1(B:Integer):Integer;
　　Begin
　　……
　　Button:=tbutton.create(self)；……
　　End；　　
三、Clientheight和Height,Clientwidth和Width的区别：　　对于一般的构件而言，Height就是Clientheight,Width就是Clientwidth，而对于窗体而言，
Height是包括标题条在内的高度，而Clientheight是指窗体工作区的高度。同理，Clientwidth是
指定窗体工作区的宽度。
　　从上面陈述可知，理解Ower和Parent,Self和Sender，Clientheight和Height,Clientwidth和
Width区别，对于Delphi中正确编程是重要的。