ScrollBox beim Scrollen aktualisieren

[teebee]

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