WMVScroll: Position > 30.000

[Yakumo500]

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.