在事件处理程序参数表中,至少含有一个参数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;