hi all,
wie der Titel bereits verrät, würde ich gerne eine normale Form dazu bewegen, sich mit dem Mausrad scrollen zu lassen.
Ich hab das folgendermaßen probiert:
In der Form einfach die Events FormMouseWheelDown und FormMouseWheelUp benutzt, um mit ScrollBy() die Form zu scrollen.
Delphi-Quellcode:
procedure Tform1.FormMouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
self.ScrollBy(0,-10);
end;
procedure Tform1.FormMouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
self.ScrollBy(0,10);
end;
Das klappt allerdings nicht so richtig - die Scrollbar verändert sich zwar (der Balken wächst bzwt. schrumpft), und der Content 'zittert' - aber Scrollen tuts nich.
Danke für eure Antworten,
greets ben