关于 Delphi 中的Sender和易混淆的概念（转）

///////////////////////////////////////////////////////

Delphi 中Sender对象的定义
/////////////////////////////////////////////////////
1.Sender的定义：
每一个事件处理里面至少都有一个Sender参数。比如：
procedure TForm1.Button1Click(Sender:TObject);
begin
...
end;
Sender的含义就是代表调用TForm1.Button1Click这个过程的控件.由于Sender是TObject,所以任何object都可以赋给Sender.
当你点击BUTTON1时，会产生一个Button1Click事件，系统会把Button1传递给Button1Click过程作为参数，也就是所说的Sender.

2.Sender的用法：
<1>.由于Sender代表了调用所在过程的控件，那么你就可以直接把它拿来当那个控件用，不过如果要用属性的话，最好写成(Sender as 控件名).控件属性：=... 例如:
procedure TForm1.Edit1Click(Sender: TObject);
begin
with Sender as TEdit do
begin
text:=’hello’;
end;
end;

<2>.如果在两个事件中处理同样的事情，那么可以利用Sender来省去重写同样的过程。例如：
Procedure TForm1.Button1Click(Sender:TObject);
begin
do same sth.....;
if Sender=Button1 then
do sth....;
if Sender=Button2 then
do other sth....;
end;

procedure TForm1.Button2Click(Sender:TOBJect);
begin
Button1Click(Button2);
end;

sender什么作用？

大多数DELPHI 书都回避对sender的详细解释，即使有说明也简单一带而过。sender什么作用？真的很神秘吗？

我认为潭浩强写的计算机语言书最通俗易懂。
现在计算机书泛滥成灾，通俗易懂的精品很少。书是语言的文字，既然是
语言就要通俗易懂！尤其是计算机方面的书，先进技术概念和词汇多来自西方，由于文化不同我们认为很难理解的词在西方国家可能就很通俗。
可我们很多编译者根本没有西方语言环境基础，对一些新概念、名词很茫然或者干脆直译，造成一本本晦涩词语满篇的“新书”，让读者费了好多时间还是满头“雾水”。你没有西方语言环境基础也不怕，你通过消化理解、实验、总结后用你的母语（中国话）来写书呀！干嘛整那么多晦涩的词呀？比如：使能、本征等等。。。
   新名词直译也可以，就当作一个符号，关键是先用汉语解释清楚呀。世界上从来就没有什么高难的概念和词语，只有语言表达是否简明易懂。

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面向对象的重用性。

就表示发送的那个对像,可以对发送对象和函数操作的

Sender--意义：指本对象。Sender在什么对象相关代码里，那么Sender就是什么。

Self--意义：指本类，也就是Self被引用的类。比如若在类TMyClass内引用了Self，那么Self=TMyClass.

Owner--意义：哪个对象释放我的内存啊？

如：Pan:=TPanel.Create(Self);其中Create的参数是：AOwner:TComponent。Owner释放Pan的内存。因为窗口释放Pan的内存，但窗口类的对象是Self.一般给Owner传Self就可以。

比如：

代码段一：

pan:=TPanel.Create(Self);

with Pan do begin

try

Left:=20;

Top:=20;

parent:=Self; //Parent:=Form1也可以。

Visible:=true;

ShowMessage('Created');

finally

Pan.free;

end;

end;

-----------------------------------------------------

Parent--意义：此对象包括在哪个对象里那？

说明：若组件不是从TControl继承来的，那么在创建组件后不必声明此属性。

////////////////////////////////////////////////////////////////////////////

 

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,它代表触发事件处理程序的构件，如在上例中，Sender就指Button2，有了Sender参数，可以使多个构件共用相同的事件处理程序，如下例：
　　Procedure Tform1.Buttonclick(Sender:Tobject);
　　Begin
　　If sender=button1 then
　　Label1.caption:=′看庭前花开花落
′ 　　Else Label2.caption:=′望天上云卷云舒′
　　End；
　在此例中，Button1,Button2共用了Buttonclick事件处理程序。

       一个事件处理过程可被多个组件的不同事件共同响应，可以通过事件处理过程的Sender参数来确定消息来源。   
    举例：   
    Button1和Button2的Onclike事件可以都指向Button1Click，则可以有以下用法：   
    procedure     TForm1.Button1Click(Sender:TObject)   
    begin   
        if     (Sender=Button1)     then   
                ............   
        if     (Sender=Button2)     then   
                ............   
    end;   

　　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中正确编程是重要的。