PageControl - Drag and Drop ist problematisch

[xZise]

Hi DP,
ich habe ein kleines Problem mit dem TPageControl.
Auf diesen sind mehrere Tabsheets.
Nun kann man in einen TabSheet ein Objekt aufnehmen, und man soll dann auf die Leite oben gehen.
Und dann sollte er normalerweise auf das aktuell selektierte Tab gehen.
Also schnell eine DragOver Prozedur geschrieben.
Anfangs hat er noch nicht den Tab gewechselt.
Also flugs Dragmode in "dmAutomatic" umgestellt und tada es funktioniert.
Leider habe ich das verboten (absicht) und musste nochmal ansetzen und dann der Schock:
Jedes mal wenn ich den Tab ändere ändert sich das Mausicon ...
Abgesehen davon, dass die OnChange Methode nicht aufgerufen wird.
Dabei habe ich noch nicht "StartDrag" eingebaut!

Nun ist meine Frage, wie man das umsetzt ohne DragMode wieder auf dmNormal (oder so) zu stellen, weil dann ja wieder nichts mehr mit draggen ist xD

MfG
xZise