TJVCheckListBox um OnChange/OnSelectionChange Event erweiter

[JonnyGuitar]

Servus,

bei der TJVCheckListBox hätte ich gerne noch ein Event wenn sich die Selektierung ändert.
Ich habe folgenden Versuch unternommen daszu implementieren:

Delphi-Quellcode:

type
  TMyCheckListBox = class(TJvCheckListBox)
  private
    FOnChange: TNotifyEvent;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
    procedure LBSELECTSTRING(var M: TMessage); message LB_SELECTSTRING;
  public
    { Public-Deklarationen }
  published
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure TMyCheckListBox.LBSELECTSTRING(var M: TMessage);
begin
  Inherited;
  if Assigned(FOnChange) then
    FOnChange(Self);
end;

Das LB_SELECTSTRING aus der Unit Messages scheint nicht die richtige Konstante zu sein.
Kann mir einer weiterhelfen was ich da genau nehmen muss bzw. was ich anders machen muss?


Vielen Dank

Jonny