Hi,

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

zusammenfalten · markieren

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?

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

Danke Das hat funktioniert.