Delphi组件中同时内置与对外发布OnMouseMove事件的更佳实现方案咨询

你的当前方案确实能解决问题，但用OnMouseMove2这种命名不够直观，用户使用时容易困惑。其实有两种更优雅的方案，可以保留原OnMouseMove名称，同时让内置逻辑和用户自定义事件完美共存：

方案1：重写组件的虚拟事件触发方法（推荐） #

大多数VCL组件都会为事件提供对应的虚拟DoXXX方法，用于子类扩展。如果TCustomImage32提供了DoMouseMove（或类似命名）的虚拟方法，这是最优解，完全遵循VCL的设计规范：

type
  TAudioBezierCurvesInteractive = class(TCustomImage32)
  protected
    // 重写TCustomImage32的虚拟DoMouseMove方法
    procedure DoMouseMove(Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer); override;
  published
    // 直接发布继承来的OnMouseMove属性，无需自定义字段
    property OnMouseMove;
    // 其他需要发布的属性
    property Align;
    property Anchors;
    property AutoSize;
    // etc. ...
  end;

procedure TAudioBezierCurvesInteractive.DoMouseMove(Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer);
begin
  // 第一步：执行你的内置业务逻辑
  // ...这里编写你的核心处理代码...

  // 第二步：调用父类方法，自动触发用户绑定的OnMouseMove事件
  inherited;
end;

这种方式逻辑清晰：鼠标移动时先执行你的内置逻辑，再由父类的DoMouseMove触发用户通过OnMouseMove绑定的处理函数，无需额外维护自定义事件字段，代码简洁易维护。

方案2：重新声明OnMouseMove属性，分离内置与用户逻辑 #

如果TCustomImage32没有提供可重写的虚拟方法，你可以通过重新声明OnMouseMove属性，将用户绑定的事件与内置处理逻辑分离：

type
  TAudioBezierCurvesInteractive = class(TCustomImage32)
  private
    FUserOnMouseMove: TImgMouseMoveEvent;
    procedure InternalMouseMoveHandler(Sender: TObject; Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer);
  public
    constructor Create(AOwner: TComponent); override;
  published
    // 重新声明OnMouseMove属性，指向我们维护的用户事件字段
    property OnMouseMove: TImgMouseMoveEvent read FUserOnMouseMove write FUserOnMouseMove;
    // 其他发布属性
    property Align;
    property Anchors;
    property AutoSize;
    // etc. ...
  end;

constructor TAudioBezierCurvesInteractive.Create(AOwner: TComponent);
begin
  inherited;
  // 将父类的OnMouseMove指向我们的内置处理函数
  inherited OnMouseMove := InternalMouseMoveHandler;
end;

procedure TAudioBezierCurvesInteractive.InternalMouseMoveHandler(Sender: TObject; Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer);
begin
  // 第一步：执行你的内置业务逻辑
  // ...这里编写你的核心处理代码...

  // 第二步：如果用户绑定了OnMouseMove，调用用户的处理函数
  if Assigned(FUserOnMouseMove) then
    FUserOnMouseMove(Sender, Shift, X, Y, Layer);
end;

这里的关键是：重新声明的OnMouseMove属性让用户赋值时修改的是FUserOnMouseMove字段，而父类的OnMouseMove被我们设置为内置的InternalMouseMoveHandler，确保鼠标移动时先触发内置逻辑，再调用用户的事件。

注意事项 #

• 优先选择方案1，因为它更符合VCL组件的扩展惯例，代码更简洁也更易维护。
• 若不确定TCustomImage32是否有对应的虚拟方法，可以查看它的类声明文档或源代码，通常这类交互事件都会有对应的DoXXX虚拟方法。

内容的提问来源于stack exchange，提问作者3delite