Delphi Sender对象的使用

博客介绍了Delphi中Sender参数的定义和用法。在事件处理里,Sender参数代表调用对应过程的控件,如点击Button1时,Sender代表Button1。其用法常配合is和as,可直接当作对应控件使用,也可用 (sender as 控件类名).属性来调用控件属性。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

一、Sender的定义:

每一个事件处理里面至少都有一个Sender参数。比如:

procedureTForm1.Button1Click(Sender:TObject);
	begin
	<代码段>
	end;

当点击BUTTON1时,会产生一个Button1Click事件,系统会把Button1传递给Button1Click过程作为参数:
Sender的含义就是代表调用TForm1.Button1Click这个过程的控件,即Sender代表控件Button1。

二、用法:(经常配合is和as使用)

1、Sender代表了调用所在过程的控件,那么你就可以直接把它拿来当那个控件用
例: button2共用了button1的过程:

ProcedureTForm1.Button1Click(Sender:TObject);
	Begin
   		//sender直接当控件使用
    	IfSender=button2 then ShowMessage(‘您按下了button2’);
	End;   

2、如果要用属sender代表的控制属件,用 (sender as 控件类名).属性 (注意是控件类名)
例 button2,button3共用了button1的过程

 ProcedureTForm1.Button1Click(Sender:TObject);
	Begin
     	Case (Sender as Tbutton).tag of //在每个button设置tag值,case要求有序类型
     	//或写成Case Tbutton(sender).tag of
    	1:ShowMessage(‘您按了Button1’);
    	2:ShowMessage(‘您按了Button2’);
    	3:ShowMessage(‘您按了Button3’);
   	End;
End;
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值