ActiveControl auf Label anwenden

[sebastian1979]

Hallo,

ich habe folgendes Problem:

Ich habe ca. 200 Label Felder.
Wenn ich für alle Labels die gleiche OnClick Procedure mit folgender Anweisung auswähle:

EDName.Text := (FindComponent(ActiveControl.name) as TLabel).Caption;

sollte eigendlich der Caption Inhalt des Labels in EDName erscheinen, stattdessen bekomme ich eine Fehlermeldung.
Bei ca. 500 TEdit's funktioniert es ohne Probleme, allerdings nicht bei den Labels.

Das Problem ist, dass ActiveControl nicht auf die Labels reagiert!

Gibt es eine andere function, womit ich das Problem lösen kann??

Vielen Dank und einen schönen Abend.

[mkinzler]

Warum wertest du nicht einfach den Parameter Sender aus? :zwinker:

[sebastian1979]

:wall: :wall: :wall:

Funzt, vielen Dank für Deine Hilfe.

Falls jemand noch mal so umständlich denkt wie ich:

Delphi-Quellcode:

EDName.Text := (sender as TLabel).Caption;

Schönen Abend noch.