Dieser Teil muss in deine Schleife, dass jedes Image, diese Prozedur zugewiesen bekommt.
Karte[1].OnClick := Image1Click;
[Add]
Zitat von
Sotov:
Sorry, ich bin ein Anfänger und den Code habe ich leider nicht verstanden!
Diesen Code
(Sender as TImage).picture := Image2.picture;
schreibst du in dein Image1Click.
Zur Erklärung:
Durch Sender "weis" die Prozedur, welches TImage angeklickt wurde und in das läd er dann das Bild aus Picture2.
Gruß