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.