Komponenten-methoden zusammen legen?

[Ricane]

Hallo,

ich habe ein Problem... ich habe 102 Komponenten, bei denen ich jeweils die OnClick Methode abfragen will.

Soweit so gut. Es ist aber so, in jede Prozedur quasi nur eine Zeile rein müsste. Kann man diese Methode nicht irgendwie zusammen legen?!

Vielleicht irgendwie mit den Abfragen der Cursor Position?!


Jemand Ideen?


Ricane

[Christian Seehase]

Moin Ricane,

wie sieht denn die Zeile aus, die in's OnClick soll?

[Ricane]

Die würde so ausschauen...

  [Name-der-geklickten-Komp].Picture := BildName

[Christian Seehase]

Moin Ricane,

wenn sichergestellt ist, dass es sich immer um ein TImage handelt, könntest Du das so schreiben:

(Sender as TImage).Picture := ... Ansonsten müsste vorher noch eine Überprüfung stattfinden, ob der Sender auch wirklich ein TImage ist.

[Ricane]

Jo,

danke hat wunderbar geklappt!


Beste Grüsse,

Ricane