Eelent aus Array of TShape ereignis zuweisen

[Real_Thunder]

Hallo an alle.

Ich versuche Gerade ein Programm zu schrieben, das Bilder archiviert..

und um einige Bilder auswählen zu können... bzw, damit es besser aussieht, habe ich
shapes um die bilder herum gesetzt

da die bildanzahl, die die suche ausgibt immer varible ist
habe ich die bilder, sowohl auch die Shapes als Array Angelegt, dessen Elemente dann mit hilfe einer schreife erstellt, positioniert, skaliert.. etc etc werden


nun möchste ich aber auch noch das in der schleife die Ereigneisse mit aufgenommen werden

beimouseclick => shape soll blau werden...

nun habe ich keinen blassen schimmer, wie ich es anstellen soll.....
habe es mit:

Delphi-Quellcode:

Shape_Array[a].onMouseDown:=MarkShape(a);

versucht, wobei markshape eine procedure ist....

Könnte mir da jemand weiterhelfen ?

[Zacherl]

Erstmal so:

Delphi-Quellcode:

Shape_Array[a].onMouseDown:=MarkShape(TObject(ShapeArray(a)));

Das gesammte Array halt nach der Suche durchgehen und allen Shapes das Event zuweisen.

Ich vermute mal MarkShape ist vom Typ TNotifyEvent (procedure Irgendwas(Sender: TObject)) ... also dann in dieser einfach wie folgt vorgehen:

Delphi-Quellcode:

TShape(Sender).BrushColor := clBlue;

Eigentlich recht simpel, oder?
Florian

[Real_Thunder]

vielen Dank...
die 2. Antwort von dir währe meine Nähste frage gewesen.

Soweit funktioniert es....

Werde mich dann mal weiter dran machen :)