摘自: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); |
Label1 . caption:=′看庭前花开花落 ' |
Else Label2 . caption:=′望天上云卷云舒′ |
在此例中,Button1,Button2共用了Buttonclick事件处理程序。 |
Self是指所编的程序范围是在哪一个类中,Delphi中大都在窗体范围内编程,因此,self即指窗体,如果在编写一个类或是一个组件,则 self指该类或组件。我们在函数或过程的声明中可看出self是代表哪个组件,即self代表‘.’号之前的组件,如在第一个例子中,self代表 Tform1。另外应注意,self只能用在类方法中,而不能用在过程或函数中,如下例用法是错的: |
Function a1(B: Integer ): Integer ; |
Button:=tbutton . create(self);…… |
三、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); |
Label1 . caption:=′看庭前花开花落' |
Else Label2 . caption:=′望天上云卷云舒′ |
在此例中,Button1,Button2共用了Buttonclick事件处理程序。 |
Self是指所编的程序范围是在哪一个类中,Delphi中大都在窗体范围内编程,因此,self即指窗体,如果在编写一个类或是一个组件,则self 指该类或组件。我们在函数或过程的声明中可看出self是代表哪个组件,即self代表‘.’号之前的组件,如在第一个例子中,self代表 Tform1。另外应注意,self只能用在类方法中,而不能用在过程或函数中,如下例用法是错的: |
Function a1(B: Integer ): Integer ; |
Button:=tbutton . create(self);…… |
Clientheight和Height,Clientwidth和Width的区别: |
对于一般的构件而言,Height就是Clientheight,Width就是Clientwidth,而对于窗体而言,Height是包括标题条在内的高度,而Clientheight是指窗体工作区的高度。同理,Clientwidth是指定窗体工作区的宽度。 |
从上面陈述可知,理解Ower和Parent,Self和Sender,Clientheight和Height,Clientwidth和Width区别,对于Delphi中正确编程是重要的。 |
每一个事件处理里面至少都有一个Sender参数。比如: |
procedure TForm1 . Button1Click(Sender:TObject); |
Sender的含义就是代表调用TForm1 . Button1Click这个过程的控件. 由于Sender是TObject,所以任何 object 都可以赋给Sender. |
当你点击BUTTON1时,会产生一个Button1Click事件,系统会把Button1传递给Button1Click过程坐为参数,也就是所说的Sender. |
< 1 >.由于Sender代表了调用所在过程的控件,那么你就可以直接把它拿来当那个控件用,不过如果要用属性的话,最好写成(Sender as 控件名).控件属性:=... 例如: |
procedure TForm1 . Edit1Click(Sender: TObject); |
< 2 >.如果在两个事件中处理同样的事情,那么可以利用Sender来省去重写同样的过程。例如: |
SearchOptions: TLocateOptions; |
SearchOptions := [loPartialKey]; |
tabPV_Card . Locate(searchword, TEdit(sender).Text , SearchOptions); |