ScrollBox in Komponente mit Mausrad scrollen

[Ares]

Hallo!

Ich habe es jetzt wie vorgeschlagen mit der MOUSEWHEEL Nachricht versucht. Als Test habe ich hierzu der Komponente ein Label hinzugefügt, dass je nach Nachricht beschriftet werden soll:

Delphi-Quellcode:

type
  TMyComonent = class(TCustomPanel)
  private
    FScrollBox: TScrollBox;
    FLabel: TLabel
   
    procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL
  public 
    constructor Create(AOwner: TComponent); override;
  end; 

...

procedure TMyComonent .WMMouseWheel(var Msg: TWMMouseWheel);
begin
  FLabel.Caption := IntToStr(Msg.XPos);
end;

Reaktion: Keine.

Mach ich beim Empfang der Nachricht etwas falsch?