Delphi Sender对象的使用

最新推荐文章于 2020-09-11 23:29:39 发布

转载最新推荐文章于 2020-09-11 23:29:39 发布 · 1.4k 阅读

文章标签：

#Delphi #Sender

Delphi 专栏收录该内容

2 篇文章

订阅专栏

博客介绍了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;