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;
Delphi-Quellcode:
procedure TSkinVScrollBar.SetVScrollBarCallBack(callback: TVScrollBarEvent); stdcall;
begin
VScrollEventCallback := callback;
end;
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