Event einem bestimmten control zuweisen

Ich erstelle eine CallBack..

Delphi-Quellcode:

			type

  TVScrollBarState = (OnChange = 0, OnScroll = 1);

  TVScrollBarEvent = procedure(NewState: TVScrollBarState; Value: Integer); stdcall;

var

  VScrollEventCallback: TVScrollBarEvent;

...

  procedure LVScrollBarCallBack(NewState: TVScrollBarState; Value: Integer); stdcall;

markieren

Delphi-Quellcode:

			procedure TSkinVScrollBar.SetVScrollBarCallBack(callback: TVScrollBarEvent); stdcall;

begin

  VScrollEventCallback := callback;

end;

markieren

Delphi-Quellcode:

			if (assigned(VScrollEventCallback)) then

  VScrollEventCallback(OnChange, Trunc(FTmpVal));

Initialisierung..

LVScrollBar.SetVScrollBarCallBack(LVScrollBarCallBack);

Alles kein Problem solange ich keine 2 Listen auf der Form habe.
Weil durch die erneute zuweisung die CallBack für die vorher erstellte Liste nicht mehr gültig ist.

Wie kann ich das problem beheben ?

gruss

Event einem bestimmten control zuweisen

Event einem bestimmten control zuweisen

Forumregeln