Hallo,
Ich habe hier ein Interface, das Events bereitstellen soll.

Normalerweise (bei Klassen) ist es ja üblich, bei Events einen „Sender“-Parameter mitzuliefern, das das auslösende Objekt angibt.

Wie macht man das gleiche am besten bei Interfaces? Übergibt man einfach wie gewohnt das Objekt? Das erscheint mir irgendwie als unsaubere Vermischung von Objekten Klassen und Interfaces. Das Interface „selbst“ kann man aber auch nicht übergeben, da das auslösende Objekt die Interface-Variable, die es referenziert, im Zweifelsfalle gar nicht kennt, zumal es mehrere geben kann. Man müsste also extra ein zusätzliches Interface erzeugen, das dann übergeben wird. Auch nicht optimal.

Wie löst ihr das? Ist es vielleicht schon ein Design-Fehler, überhaupt Events in Interfaces zu verwenden? Ich konnte im Internet nichts dazu finden...

Danke im Voraus

Wenn, schon das Objekt.
Btw. bei Klassen wird ja auch eine instanz und nicht die Klasse übergeben

Hab ich irgendwo etwas anderes behauptet?

Nein, aber du hattest deine Zweifel bezüglich der Vermischung genannt.
Ein Objekt ist eine Instanz einer Klasse und kann mehrere Interfaces implementieren.
Dann wäre es ja auch eine Vermischung von Klasse und Objekt.

Dann eben Vermischung von Klassen und Interfaces. Das ist aber wirklich Erbsenzählerei...

Du hast mich falsch verstanden. Wenn die Übergabe des Objektes in einem Interface eine Vermischung ware, wäre es auch eine bei einer Klasse

markieren

Delphi-Quellcode:

var
  Intf: IInterface;
begin
  Intf := TInterfacedObject.Create;

ist etwas anderes als

markieren

Delphi-Quellcode:

var
  Obj: TObject;
begin
  Obj := TInterfacedObject.Create;

Intf und Obj sind zwei unterschiedliche Typen.

Wenn ich jetzt bei einem Interface ein Event einführe, wäre es doch konsequent, dass Sender den Typ Interface hätte. Aber dazu müsste dann extra eine neue Interface-Instanz erzeugt werden, deshalb bin ich mir nicht sicher, ob das eine gute Lösung wäre.

Ein Problem ist z.B., dass ich so im Event-Handler ein Interface nicht identifizieren kann wie es bei Objekten möglich ist (if Sender = Objekt1 then … ).