delphi中的Create,Send,Sender,Self

摘自：http://www.cnblogs.com/keycode/archive/2010/10/16/1853123.html

 

{**********************************************************************************************************************}

建立窗体是经常要用到他们如：

form1:=tform.create(application);

form1:=tform.create(self);

form1:=tform.create(nil);

form1:=tform.create(application); 当应用程序关闭时form1会被释放

form1:=tform.create(self); 当前窗体释放时form1会被释放

form1:=tform.create(nil); 需要自己动手释放，没人会为你代劳

Form1 := TForm.Create(Arg);

其中的Arg代表的是Form的Owner，也就是拥有者。

什么叫拥有者呢，意思就是说当这个拥有者释放的时候，Form1也会释放。

{************************************************************************************************************************}

在事件处理程序参数表中，至少含有一个参数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中正确编程是重要的。 

无意中上网在csdn论坛看到了一个很形象的解释：可以参考一下

方法,事件,sender,Tobject,self 

你是一个人类（Tobject），你有你自己的性别，年龄，身高等（属性），你也会攀爬蹬走（方法），你也有你的情绪，思想，当别人说你好的时候你很高 兴，说你坏时你会很沮丧（事件），有一天你自己（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中正确编程是重要的。

view sourceprint?

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来省去重写同样的过程。例如：

var

SearchOptions: TLocateOptions;

searchword:String;

begin

   if sender = Editid

       then

          begin

               searchword:='Empid' ;

                EditCardnum.text :='' ;

          end

else

   if sender= EditCardnum

        then

             Begin

              searchword:='Cardnum';

              Editid.text:='';

           end;

SearchOptions := [loPartialKey];

tabPV_Card.Locate(searchword, TEdit(sender).Text , SearchOptions);//Editid,EditCardnum两个TEdit事件处理同样的事, tabPV_Card為Ttable控件

end;