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?

**sebastian1979**

Funzt, vielen Dank für Deine Hilfe.

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

EDName.Text := (sender as TLabel).Caption; Schönen Abend noch.

ActiveControl auf Label anwenden

ActiveControl auf Label anwenden

Re: ActiveControl auf Label anwenden

Re: ActiveControl auf Label anwenden

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 Re: ActiveControl auf Label anwenden 27. Jan 2010, 20:32 Warum wertest du nicht einfach den Parameter Sender aus? Markus Kinzler
	Zitat

sebastian1979 Registriert seit: 22. Jan 2010 Ort: Solingen 16 Beiträge Delphi 2005 Professional	#3 Re: ActiveControl auf Label anwenden 27. Jan 2010, 21:01 Funzt, vielen Dank für Deine Hilfe. Falls jemand noch mal so umständlich denkt wie ich: EDName.Text := (sender as TLabel).Caption; Schönen Abend noch.
	Zitat