Scrollbalken und Mausrad nach manuellen setzen nicht mehr syncron

[stalkingwolf]

Sorry für die komische Überschrift, aber ich hoffe es schauen dennoch einige rein und verstehen wo mein Problem ist.
Ich habe hier im Forum Quellcode gefunden, womit ich selber die Position des Scrollbalken merken kann und erneut wieder setzen kann.
Dies funktioniert auch einwandfrei. Doch nachdem ich einmal den Scrollbalken selber gesetzt habe, bewegt er sich nicht mehr, wenn ich in dem Objekt ( hier ein TVirtualStringTree ) mit der Maus scrolle. Der Balken bleibt an der ursprünglichen Stelle stehen.

Jemand eine Idee, wie ich diese wieder verknüpfen kann? Oder eine andere Möglichkeit den Scrollbalken wieder zu setzen?

Delphi-Quellcode:

TempScrollInfo.cbSize := SizeOf(SCROLLINFO);
TempScrollInfo.fMask := SIF_POS;
GetScrollInfo(vt.Handle, SB_VERT, TempScrollInfo );
.
.
.
SetScrollInfo(vt.Handle, SB_VERT, TempScrollInfo, true);
vt.Perform(WM_VSCROLL, TempScrollInfo.nPos shl 16 or SB_THUMBPOSITION, 0);