Du musst die Methode
MouseMove überschreiben. Sie hat folgende Deklaration:
procedure MouseMove(Shift: TShiftState; X, Y: Integer); dynamic;
Du kannst innerhalb von MouseMove zuerst dein eigenes Zeug ausführen und dann rufst du
den ursprünglichen Code auf:
Delphi-Quellcode:
inherited MouseMove(Shift, X, Y);
end;