Event einem bestimmten control zuweisen

[Sir Rufo]

Der CallBack muss als Eigenschaft der Klasse/Instanz gespeichert werden und nicht in einer globalen/unit-globalen Variablen, da eben dort nur ein CallBack gespeichert werden kann.

Delphi-Quellcode:

type
  TSkinVScrollBar = class
  private
    FVScrollEventCallBack : TVScrollBarEvent;
    procedure SetVScrollEventCallBack( Value : TVScrollBarEvent );
  published
    property VScrollEventCallBack : TVScrollEvent read FVScrollEventCallBack write SetVScrollEventCallBack;
  end;

procedure TSkinVScrollBar.SetVScrollEventCallBack( Value : TVScrollBarEvent );
begin
  FVScrollEventCallBack := Value;
end;