Eigene Funktion über ereigniss aufrufen

[Oxmyx]

Zitat von pszopp:

Du musst dem OnClick Event eine Methode(Prozedur) zuweisen, die als Übergabewert eine Variable vom Typ
TObject erwartet.

Sobald jemand auf das Image klickt, wird diese Methode aufgerufen.
Dabei steht in Sender eine Referenz auf das Image, auf das geklickt wurde.

schreibe also am besten so eine Methode:

Delphi-Quellcode:

PROCEDURE TForm1.OnImageClick(Sender:TObject);
BEGIN
  IF (Sender IS TImage) THEN BEGIN
//    (Sender AS TImage).
//    Hier kannst du etwas mit dem Bild machen.
  END;
END;

Wenn du schon weißt, dass es ein Bild ist (Sender is TImage), dann kannst du gleich direkt casten mit TImage(Sender). Die Überprüfung des as-Operators hat sich dann ja erledigt.