Du brauchst eine neue Scrollbox-Klasse, die WM_HSCROLL und WM_VSCROLL abfängt.
Delphi-Quellcode:
TMyScrollBox=Class(TScrollBox)
public
Procedure WMVSCROLL(Var Msg: TWMSCROLL); message WM_VSCROLL;
Procedure WMHSCROLL(Var Msg: TWMSCROLL); message WM_HSCROLL;
end;
Procedure TMyScrollBox.WMVSCROLL(Var Msg: TWMSCROLL);
Begin
If (Msg.ScrollCode=SB_THUMBTRACK) Then
VertScrollBar.Position := Msg.Pos;
End;
// Analoges für WMHSCROLL
...
Das Verhalten könnte man noch mit einem Flag ein- und ausschalten.
Gruß, teebee