Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Uwe Raabe,
21. Sep 2012
Das sollte aber eigentlich nicht so sein. Die while-Schleife sollte eigentlich die erste übergeordnete ScrollBox finden zu der das Control unter der Maus gehört. Ist das bei dir nicht der Fall?
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Uwe Raabe,
18. Sep 2012
Schau doch mal nach, was PScrollBox.ClientRect und AScrollBox.ClientRect jeweils zurückgeben - dann sollte es dir klar werden, was da schief geht.
Aber warum so kompliziert?
procedure TForm162.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
vsb: TControlScrollbar;
ctrl: TControl;