请问Sender这个参数的含义(0分)

  • 主题发起人 主题发起人 awfigsk
  • 开始时间 开始时间
A

awfigsk

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1click(Sender:TObject);

请问在这个过程中,Sender这个参数是代表什么?我在看许多事件中,都有这个参数,
但它是代表什么呢?
谢谢!
 
Sender--意义:指本对象。Sender在什么对象相关代码里,那么Sender就是什么。
 

看看这个单词也能知道大概意思了。
 
(sender as 对象的类名) 就是触发该事件的对象
 
它的用法,下面举个例子。
sender 就是对象,
我用的是cbuilder,差不多的
比如说有三个button的click事件都是form1::mybuttonclick(tobject *Sender)
给每个button的tag分别赋值为1,2,3,
在事件处理里可以这样区别是哪一个button被按下了
if ((TButton*)Sender->Tag == 1)
{
...
}
else if ((TButton*)Sender->Tag == 2)
{
...
}
else if ((TButton*)Sender->Tag == 2)
{
...
}

 
Sender--意义:指本对象。Sender在什么对象相关代码里,那么Sender就是什么。
 
没有意义,只是一个参数名~
你换成其它的也可以~
 
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就指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中正确编程是重要的。
 
十分感谢各位,小弟分数不够,还请各位多多包涵!
 
后退
顶部