WMVScroll: Position > 30.000

[Yakumo500]

Hallo,

Ich habe eine Frage bezüglich TWMScroll, das bei WMVScroll übergeben wird.

Erst mal die Funktion:

Delphi-Quellcode:

type
  TComp = class(TCustomControl)
    // ...
    procedure WMVScroll(var Msg: TWMScroll); message WM_VSCROLL;
    // ...
  end;

procedure TComp.WMVScroll(var Msg: TWMScroll); 
begin
  // Auslesen und Verarbeiten der Position Msg.Pos
end;

Meine Komponente benötigt eine Scrollbar, die als maximalen Wert ca. 200.000 besitzt.
Das Problem ist jetzt, dass Msg.Pos nur ein SmallInt ist also nur bis ca. 30.000 geht und somit nicht ausreicht.
Wie kann ich größere Positionen der Scrollbar auslesen?