Hallo Dalai,
Ich habe in meinen Programmen bereits beide Strukturen verwendet und bis jetzt keine Probleme gehabt. Die Ereignisbehandlung von Uwe Raabe habe ich gerade bei mir getestet und sie klappt, wie in deinem Fall, wirklich nicht.
Jetzt frage mich allerdings warum du dies im Form OnMouseWheel behandelt willst und nicht im Ereignis der ScrollBox?
Ich habe in meinem Programm der ScrollBox im OnMouseWheel lediglich diese Zeile hinzugefügt:
Delphi-Quellcode:
procedure TForm.ScrollBoxMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBox.VertScrollBar.Position := ScrollBox.VertScrollBar.Position - WheelDelta;
end;
Das funktioniert soweit ohne Probleme und vllt. löst es bereis dein Problem.
Gruß Pitschki