Array of TShape

[ennio_morricone]

Ich habe ein paar (109) schon vorhandene TShapes zur Laufzeit zu einem statischen array zusammengefasst.
Nun suche ich eine Möglichkeit, dass, wenn man auf eines der TShapes klickt, den dem TShape zugehörigen Index übergeben bekommt.

Die Indexnummern sollen so bestehen bleiben, wie sie sind. Wenn man auf eins der TShapes klickt, soll in einer Datenbank nach der Indexnummer gesucht und der richtige Datensatz angezeigt werden (den Teil mit der Datenbank bekomme ich noch selbst hin).

Weiß evtl. jemand, wie das geht?

[Dani]

Bei nem statischen Array könntest du die Tag-Property der TShapes auf den eigenen Index setzen.

Gruß,
Dani

[ennio_morricone]

Das mit der Tag-Property nützt mir nichts. Ich möchte nicht für jedes TShape eine Click- oder MouseUp-Prozedur, sondern nur für das Array, wenn das möglich ist, d.h., eine MouseUp-Prozedur für das gesamte Array, bei der der []-Ausdruck innerhalb der Prozedur verfügbar ist.

[Sanchez]

Der Tag bringt dir da schon was.
Du weist einfach jedem Shape die selben Event-Handler zu. Bei jedem Event kommt der Sender mit.
Über den Sender holst du dir den Tag, und die weißt somit wieder, welches Shape Auslöser war.

grüße, daniel

[Nikolas]

Mach dir eine function die du beim (dynamischen) Erstellen der Shapes ins Mouseup schreibst. In der function kannst du dann einfach per

Delphi-Quellcode:

xy:=(Sender as TShape).tag);

den Tag auslesen. Wie du mit dem auf die Stellung im array kommst, sollte kein Problem darstellen. So brauchst du nicht für jede Shape eine Function tippen.