Delphi中如何引用当前触发事件的对象替代长控件名调用

Delphi没有内置专门的关键字指向当前触发事件的控件，你可以直接使用事件方法默认携带的Sender参数实现该需求，Sender的本质就是触发当前事件的对象实例，仅需做对应类型转换即可调用控件属性和方法。

示例场景适配代码 #

图片点击事件适配 #

procedure TForm1.Image1OnClick(Sender: TObject);
begin
  // 先校验类型避免转换错误，确定绑定对象类型时可省略校验直接转换
  if Sender is TImage then
    TImage(Sender).Picture.Graphic := [Something];
end;

标签鼠标移入事件适配 #

procedure TForm1.Label1OnMouseEnter(Sender: TObject);
begin
  if Sender is TLabel then
    TLabel(Sender).Font.Color := RGB(255,255,255);
end;

额外说明 #

• 该写法完全不需要输入控件长命名，大幅简化代码编写
• 同一段事件逻辑可以复用给多个同类型控件：比如你有10个需要实现鼠标移入变白效果的标签，只需要把所有标签的OnMouseEnter事件都绑定到同一个处理方法即可，无需每个控件单独写逻辑
• 类型转换可根据需求选择写法：TLabel(Sender)属于硬转换，类型不匹配时会直接抛出异常；Sender as TLabel属于安全转换，类型不匹配时会返回nil，你可以结合场景自行选择。

内容的提问来源于stack exchange，提问作者Ignacio Ponseti