Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
6. Jun 2006
Nicht nötig. Der Sourcecode der Klasse TControl sieht so aus:
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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
6. Jun 2006
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:
inherited MouseMove(Shift, X, Y);
end;