|
Registriert seit: 22. Jan 2010
Ort: Solingen
16 Beiträge
Delphi 2005 Professional
|
ActiveControl auf Label anwenden
27. Jan 2010, 20:30
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.
|