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