TImage Objekt als Sender nutzen

[DeddyH]

Und um den Unterschied zwischen dem gezeigten Hard- und Soft Cast zu erklären:

Delphi-Quellcode:

if Sender is TBla then
  TBla(Sender).MachWas;

Hier wird zunächst geprüft, ob Sender vom Typen TBla ist bzw. abstammt. Nur wenn das zutrifft wird die Methode MachWas von Sender aufgerufen, nachdem dieser als TBla interpretiert (gecastet) wird. Ist Sender nicht vom Typ TBla, passiert gar nichts, auch keine Fehlermeldung oder dergleichen. Letzteres aber auch nur deswegen, weil die Typ-Prüfung bereits erfolgt ist. Lässt man die Abfrage weg sieht das schon anders aus.

Delphi-Quellcode:

(Sender as TBla).MachWas;
//Dummy-Zeile für den Highlighter der DP

Hier wird versucht, Sender als TBla zu interpretieren. Stimmt der Typ nicht, so wird automatisch eine Exception geworfen (EInvalidCast heißt die IIRC).
Welche Vorgehensweise man nun bevorzugt, lässt sich nicht pauschal sagen, es kommt eben darauf an, wie man im Fehlerfall reagieren möchte.