OnMouseDown-Ereignis bei dynamisch erstelltem Image

[bender251]

Hallo,

hab jetzt soweit verstanden, wie es funktionieren sollte, aber es funktioniert leider nicht. Ich habe jetzt ein Objekt erstellt und dort im public-Bereich die Funktion eingefügt.

Delphi-Quellcode:

type tbildimage = class(Timage)
  private
  protected
  public
    procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  end;

und im Programm dann die einzelnen Images so erstellt:

Delphi-Quellcode:

...
    bildteil[i] := tbildimage.Create(Form1);
    bildteil[i].Parent := Form1;
    bildteil[i].OnMouseDown := MouseDown;
...

DIe Funktion sieht so aus:

Delphi-Quellcode:

procedure tbildimage.MouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    showmessage('hallo');
end;

Wenn ich dann versuche das Programm zu compilieren und auszuführen erhalte ich die Meldung, dass procMouseDOwn ein undefinierter Bezeichner sei.

Ich steh momentan leider auf dem Schlauch.

Gruß
bender251