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