Also bei mir steht jetzt folgendes:
Delphi-Quellcode:
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Form1.ScrollInView(Form1);
end;
und es klappt immer noch nicht! Könnte es an meiner USB-Maus liegen?