Komponente ableiten: Ereignisse überschreiben

[Martin K]

Hi,

bin gerade dabei, mir eine Komponente ableiten.
Dabei möchte ich, dass bestimmte Ereignisse (z. B. OnMouseMove) im OI nicht verfügbar sein sollen, da ich sie bereits in der abgeleiteten Komponente für etwas anderes nutze (habe also diesem Ereinis schon etwas zugeordnet).

Eine andere Möglichkeit wäre natürlich, bei OnMouseMove würden beide Ereignisse ausgeführt werden:
Das was ich in der abgeleiteten Komponente habe und das was der User im OI hinzufügt.
Dieses wäre natürlich eine bessere Lösung!

Ist eines von beiden (oder beides?) irgendwie möglich?

[DGL-luke]

du kannst die WIndowsmessage (WM_MOUSE oder so) selbst abfangen und dann zuerst dein eigenes event starten udn dann fOnMouseMove auslösen.

Du kannst natürlich auch nur in der Nachrichtenbehandlung deine Sache machen und dann die message einfach weiterleiten.

Ich würde da wahrscheinlcih sogar die komplette Nachrichtenschleife "verschieben" und in meiner eigenen die nachrichten abfangen/weiterleiten, wenn du verstehst was ich meine.

[shmia]

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;

[DGL-luke]

warum einfach, wenns auch kompliziert geht...

[shmia]

Zitat von DGL-luke:

warum einfach, wenns auch kompliziert geht...

Tja... wer den Sourcecode der VCL hat, hat auch die MACHT.

[Martin K]

Danke erstmal für den Code, sieht echt einfach aus
Aberm muss ich dann nicht noch das Ereignis zuweisen?
  OnMouseMove := MouseMove;

[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.

[Martin K]

Okay, danke!

Dann werd ich's mal testen...

[SirThornberry]

Als ich den Source noch nicht hatte hab ich sowas wie folgt gemacht:

Delphi-Quellcode:

  TMeinKlasse = class(TUrsprungsklasse)
  private
    fOnMouseMove: TMouseMoveEvent;
    procedure FOnMouseMoveProc(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  public
    constructor Create(AOwner: TComponent); override;
  published
    property OnMouseMove: TMouseMoveEvent read fOnMouseMove write fOnMouseMove;
  end;
[...]
constructor TMeinKlasse.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  inherited OnMouseMove := FOnMouseMoveProc;
end;

procedure TMeinKlasse.FOnMouseMoveProc(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  //Mein Zeugs
  if Assigned(fOnMouseMove) then
    fOnMouseMove(Sender, Shift, X, Y);
end;

Die Lösung mit dem Überschreiben ist zwar besser (vor allem wenn auf Vorgängerobjecte gecastet wird etc.) aber wenn es keine Methode zum Überschreiben gibt bzw. man diese nicht kennt ist dies eine annehmbare Lösung.

[Martin K]

Hmm... irgendwie krieg ich's nich hin.

Wo muss ich denn die Prozedurprocedure MouseMove(Shift: TShiftState; X, Y: Integer); dynamic; deklarieren? (nach dem Schema von Beitrag #3 !!!)

Zur Zeit steht sie im public Teil, aber sie wird einfach nicht ausgeführt

Übrigens:
Seit dem ich daran rumbastle kann ich Delphi nicht mehr neu starten, nur noch mit dem gerade geöffneten Delphi arbeiten.
Wenn ich Delphi starten will, kommt diese Fehlermeldung:

Zitat:

---------------------------
delphi32.exe - Einsprungpunkt nicht gefunden
---------------------------
Der Prozedureinsprungpunkt "@Inifiles@TMemIniFile@$bctr$qqrx17System@AnsiStri nt" wurde in der DLL "rtl70.bpl" nicht gefunden.
---------------------------
OK
---------------------------