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