看这是delphi帮助上的例子?是它有问题,还是我不懂? 因为toolbutton2的OnClick也指向了ToolButton1Click,看一下 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这也就是说,这一段代码在toolbutton2中也可以考过去用, 可能的,你点击Object观察器中的点击事件,可以共享处理程序 实际上,许多事件中把这个 Sender 当作触发事件者,由于对象类型不确定利用 OBJECT PASCAL 的多态性将其设置为 TOBJECT。你可以用 IS 来得到其相容类型,AS 把它作为一种相容类型使用。例子已经给了,不管 SENDER 什么事,这是 Tobject 的事。--------------------------------------------------------------------------------------sender 一般是指示这个事件是谁触发的,并且通过将Sender强制转化成另一种对象,并访问对象中的属性。例如: TForm1.Button1Click(Sender:TObject); /|\ | Sender 代表是Button1触发的事件 beign if Button1 is TButton then //判断是否Sender是否是TButton的实例 (Sender as TButton).Caption:='[email protected]'; //改变Button1.Caption end;--------------------------------------------------------------------------------------再看一看我转贴的内容:===================二、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;--------------------------------------------------------------------------------------二、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; 实际上,许多事件中把这个 Sender 当作触发事件者,由于对象类型不确定利用 OBJECT PASCAL 的多态性将其设置为 TOBJECT。你可以用 IS 来得到其相容类型,AS 把它作为一种相容类型使用。例子已经给了,不管 SENDER 什么事,这是 Tobject 的事。--------------------------------------------------------------------------------------sender 一般是指示这个事件是谁触发的,并且通过将Sender强制转化成另一种对象,并访问对象中的属性。例如: TForm1.Button1Click(Sender:TObject); /|\ | Sender 代表是Button1触发的事件 beign if Button1 is TButton then //判断是否Sender是否是TButton的实例 (Sender as TButton).Caption:='[email protected]'; //改变Button1.Caption end;--------------------------------------------------------------------------------------再看一看我转贴的内容:===================二、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;--------------------------------------------------------------------------------------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中正确编程是重要的。 self 与 SENDER 是两个比较容易混淆的概念,SELF 是指所编程序的范围是在哪一个类中,而SENDER 代表发送消息的控件对象,其中包含了关于这个控件的详细信息。在事件处理程序参数表中,至少含有一个参数SENDER,它代表触发事件处理程序的控件。 应该是Sender.ClassName = 'ToolButton1'吧! 请大家帮帮忙~~~~~~~~~ 关于QReport组件的问题!!! 高分请教打印问题,如何打印panel里的所有内容? 定义临时表 出错 Invalid field type..... 谢谢各位大侠 请教BDE中Session和Datebase组件的作用. Select语句的问题,还望指教! 怎样用settimer生成计时器? 如何重读注册表的一部分? 简单,edit 的 text 不是数字就清成0重输。1000分!!! 简拼查询问题 再线关注,一个sql的问题。 &&&&&&&诚招Delphi开发人员及数据库开发人员,要求重庆地区人员或愿意到重庆工作的人员,具有工作及要求见内容
利用 OBJECT PASCAL 的多态性将其设置为 TOBJECT。你可以用 IS 来得到
其相容类型,AS 把它作为一种相容类型使用。
例子已经给了,不管 SENDER 什么事,这是 Tobject 的事。
--------------------------------------------------------------------------------------
sender 一般是指示这个事件是谁触发的,并且通过将Sender强制转化成另一种
对象,并访问对象中的属性。例如:
TForm1.Button1Click(Sender:TObject);
/|\
|
Sender 代表是Button1触发的事件
beign
if Button1 is TButton then //判断是否Sender是否是TButton的实例
(Sender as TButton).Caption:='[email protected]'; //改变Button1.Caption
end;
--------------------------------------------------------------------------------------
再看一看我转贴的内容:
===================
二、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;
--------------------------------------------------------------------------------------
二、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;
利用 OBJECT PASCAL 的多态性将其设置为 TOBJECT。你可以用 IS 来得到
其相容类型,AS 把它作为一种相容类型使用。
例子已经给了,不管 SENDER 什么事,这是 Tobject 的事。
--------------------------------------------------------------------------------------
sender 一般是指示这个事件是谁触发的,并且通过将Sender强制转化成另一种
对象,并访问对象中的属性。例如:
TForm1.Button1Click(Sender:TObject);
/|\
|
Sender 代表是Button1触发的事件
beign
if Button1 is TButton then //判断是否Sender是否是TButton的实例
(Sender as TButton).Caption:='[email protected]'; //改变Button1.Caption
end;
--------------------------------------------------------------------------------------
再看一看我转贴的内容:
===================
二、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;
--------------------------------------------------------------------------------------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中正确编程是重要的。
在事件处理程序参数表中,至少含有一个参数SENDER,它代表触发事件处理程序的控件。