Shape OnClick Event?

[ThYpHoOn]

Guten Tag,

ich Programmiere derzeit im Rahmen des Schulunterrichts ein Billard-Spiel in Delphi. Der Tisch steht soweit und die Kugel kollidieren auch korrekt miteinander und mit der Wand.
Nun habe ich die Kugeln als ein Array genommen und per Shape erstellt. Wenn nun ein Foul auftreten würde und die Weiße Kugel bewegt werden müsste, muss man dies ja per OnClick auf den Shape der Weißen Kugel ( Kugeln[0].OnClick ?!) machen. Doch dies kann man ja logischerweise nicht per Prozedur machen, da es sich halt wie schon gesagt um ein Array handelt. Kennt ihr irgendeine bessere Lösung als die von meinem Lehrer:
OnClick-Event auf das komplette Formular, dann die Mouse-Position nehmen und dann schauen welche Shape-Position am nähsten von der Mouse-Position ist und diese dann übernehmen.


Gz ThY