Zitat von
Martin K:
Aberm muss ich dann nicht noch das Ereignis zuweisen?
Nicht nötig. Der Sourcecode der Klasse
TControl sieht so aus:
Delphi-Quellcode:
procedure TControl.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
// Wenn Event OnMouseMove gesetzt, dann wird der Eventhandler aufgerufen
if Assigned(FOnMouseMove) then FOnMouseMove(Self, Shift, X, Y);
end;
Durch Überschreiben von MouseMove wird
dein MouseMove aufgerufen.
Du kannst also schön dein Ding ausführen und dann die Kontrolle über
inherited
wieder auf den Standardweg abgeben.