TPageControl - > Tabs per Maus durchsrollen?

[NoGAD]

Hallo,

TPageControl hat kein OnMouseWheel. Ich hatte mir das vor einem Jahr schon programmiert, nur leider den Quellcode verloren, es ging mit dem Standardcontrol.

Aber ich habe vergessen, wie ich das gemacht hatte.

Weiß jemand bitte, wie ich, wenn ich mit der Maus über den Tabs stehe, den PageIndex beim Scrollen mit dem Mausrad ändern kann?

LG Mathias