Delphi中的Sender:TObject对象解析

 

Delphi 中的 Sender:TObject

1、Sender介绍

Sender的类型是Tobject,是Tobject的派生类。

Sender是一个TObject类型的参数,它告诉Delphi哪个控件接收这个事件并调用相应的处理过程。

例如:

procedure TForm1.Button1Click(Sender:TObject);
begin
    //
end;

当点击BUTTON1时,会产生一个Button1Click事件,系统会把Button1传递给Button1Click过程作为参数,也就是 Sender ,此时的Sender 是Button1

2、Sender的用法:

2.1 当控件用 (as),格式:

    
(Sender as 控件名).控件属性:=...

例如:

复制代码
procedure TForm1.Edit1Click(Sender: TObject);
begin
  with Sender as TEdit do
  begin
    text:=’Hello Baby’;
  end;
  if Sender is TButton then showmessage((Sender as TButton).Caption)
end;
复制代码

2.2 对象判断(多个事件中处理同样的事情)

复制代码
Procedure TForm1.Button1Click(Sender:TObject);
begin
if Sender=Button1 then 
//事件
if Sender=Button2 then
//事件
end;
复制代码

 

2.3 使用保留字IS来 使用 Sender

复制代码
procedure TForm1 xxx(Sender:TObject);
begin
  if(sender is Tedit) then
  showmessage(′this is a editbox′);
  if(sender is TMemo) then
  showmessage(′this is memo′);
end;
复制代码

 

参考:

Delphi 中的Sender:TObject 对象用法 - 滔Roy - 博客园 (cnblogs.com)

Delphi中的Sender:TObject对象解析 - 癫狂编程 - 博客园 (cnblogs.com)

 

posted on   米卢的教练  阅读(230)  评论(0编辑  收藏  举报

相关博文:
阅读排行:
· [翻译] 为什么 Tracebit 用 C# 开发
· 腾讯ima接入deepseek-r1,借用别人脑子用用成真了~
· Deepseek官网太卡,教你白嫖阿里云的Deepseek-R1满血版
· DeepSeek崛起:程序员“饭碗”被抢,还是职业进化新起点?
· 深度对比:PostgreSQL 和 SQL Server 在统计信息维护中的关键差异

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
点击右上角即可分享
微信分享提示