Wie meinst du das genau?
Ich habe jetzt zufällig auf dieser Seite
Koders bei der Funktion WMScroll folgende Funktion gefunden:
Delphi-Quellcode:
function GetRealScrollPosition(): Integer;
var ScrollInfo: TScrollInfo;
begin
ScrollInfo.cbSize := SizeOf(TScrollInfo);
ScrollInfo.fMask := SIF_TRACKPOS;
GetScrollInfo(
Handle, SB_VERT, ScrollInfo);
Result := ScrollInfo.nTrackPos;
end;
Sie scheint zu funktionieren.
Aber ich finde es sollte gleich ein Integer übergeben werden in TWMScroll und nicht ein SmallInt.