OnScroll wird nicht ausgelöst (Komponente)

[Captnemo]

Hi,

ich steh irgendwie auf dem Schlauch. Ich schreib mir grad ein erweitertes TListView und will zwei OnScroll-Ereignisse hinzufügen:

Delphi-Quellcode:

 TNewListView=class(Vcl.ComCtrls.TListView)
  private
    FHScrollEvent: TNotifyEvent;
    FVScrollEvent: TNotifyEvent;
  protected
    procedure WMVScroll(var message: TWMVScroll); message WM_VSCROLL;
    procedure WMHScroll(var message: TWMHScroll); message WM_HSCROLL;
  published
    property OnVertScroll: TNotifyEvent read FVScrollEvent write FVScrollEvent;
    property OnHorScroll: TNotifyEvent read FHScrollEvent write FHScrollEvent;
  end;

implementation

procedure TNewListView.WMHScroll(var message: TWMHScroll);
begin
  if Assigned(FHScrollEvent) then
    FHScrollEvent(Self);
  inherited;
end;

procedure TNewListView.WMVScroll(var message: TWMVScroll);
begin
  if Assigned(FVScrollEvent) then
    FVScrollEvent(Self);
  inherited;
end;

Nur werden meine Ereignisse nie ausgelöst. Was habe ich vergessen?

[Union]

Du hast vergessen dass diese Methoden private sind. Verwende lieber subclassing und tausche den generellen Eventhandler WindowProc aus.

[Captnemo]

Danke Das hat funktioniert.