如何向继承自 TGraphicControl 的组件添加鼠标滚轮支持？

type
  TMyGraphicControl = class(TGraphicControl)
  protected
    procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint); override;
  end;

implementation

procedure TMyGraphicControl.MouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint);
begin
  // 在这里添加您的鼠标滚轮支持代码
  inherited;
end;