Wie kann man richtig scrollen?

[p80286]

Falls es jemanden interessieren sollte, so geht's:

Delphi-Quellcode:

SB_THUMBPOSITION : begin
                     fillchar(Scrollinfo,sizeof(scrollinfo),#0);
                     Scrollinfo.cbSize := SizeOf(ScrollInfo);
                     Scrollinfo.fMask := SIF_ALL;
                     GetScrollInfo(Handle, SB_VERT, ScrollInfo);   // die richtige Bewegungsrichtung eintragen!
                     NewTopLine := Scrollinfo.nTrackPos;
                   end;

Augenscheinlich ist SB_CTL in diesem Falle nicht anwendbar.

Grüße
K-H

Nachtrag:

Delphi-Quellcode:

SB_THUMBPOSITION, SB_THUMBTRACK: NewTopLine := Message.Pos; { funktioniert nur bis $7FFF }
SB_THUMBPOSITION, SB_THUMBTRACK: NewTopLine := word(Message.Pos); { funktioniert bis $FFFF }

falls man etwas bescheiderner ist und keine 32Bit braucht.