|
Registriert seit: 28. Jul 2003
1.528 Beiträge
Delphi 2005 Personal
|
Re: Array of TShape
8. Jul 2004, 20:50
Mach dir eine function die du beim (dynamischen) Erstellen der Shapes ins Mouseup schreibst. In der function kannst du dann einfach perxy:=(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.
Erwarte das Beste und bereite dich auf das Schlimmste vor.
|