Komponente ableiten: Ereignisse überschreiben

[shmia]

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.