Componentname in String umwandeln

[Andreas L.]

Hi,
der Titel sagt schon alles. Ich wollte mit einen Label etwas machen. Dieses Label hat immer folgendes Schema:

Headline_ExPanel1

Headline_ wird jedes Panel genannt.
ExPanel1 ist das Panel auf welchen das Label liegt

Da das Ganze variabl sein soll muss ich also den Namen des Senders heruafinden, in einen String umwandeln und ihn mit Headline_ verbinden. Mein Code sieht wie folgt aus:
FindComponent('Headline_'+(Sender as TPanel).Name).caption:='blubb'; Jetzt fehlt mir nur noch der Befehl um den Component-Name in einen String zu verwandeln

Hoffe ihr könnt mir helfen.

[mirage228]

Hi,

ist TComponentName (also die Eigenschaft "Name") einer Komponente nicht kompatbiel zu string? Wär' mir jetzt neu..

mfG
mirage228

[Andreas L.]

Hmm... das kann ich jetzt nicht festellen da mir "Undefinierter Bezeichner: FindComponent" gemeldet wird...

[Nicolai1234]

Muss man nicht auch FindComponent mit as TLabel oder was auch immer verwenden?

[Hawkeye219]

@Nicolai1605
Richtig! FindComponent liefert einen TComponent-Zeiger, der in den meisten Fällen mit einem TypeCast verwendet wird.

@onlinehome
FindComponent ist keine einfache Funktion sondern eine Methode von TComponent.
Du mußt also die FindComponent-Methode des Label-Besitzers (also Owner, nicht Parent!) aufrufen. Meistens ist dies das Formular, auf dem das Label liegt.

Gruß Hawkeye

[Andreas L.]

Zitat von Hawkeye219:

@onlinehome
FindComponent ist keine einfache Funktion sondern eine Methode von TComponent.
Du mußt also die FindComponent-Methode des Label-Besitzers (also Owner, nicht Parent!) aufrufen. Meistens ist dies das Formular, auf dem das Label liegt.

Gruß Hawkeye

Und wie geht das?

[Kinimod8]

(FindComponent('Headline_'+(Sender as TPanel).Name) as TLabel).caption:='blubb';

[Andreas L.]

Zitat:

[Fehler] Unit1.pas(45): Undefinierter Bezeichner: 'FindComponent'

Welche Units brauche ich denn? In der Delphi-Hilfe steht davon nichts...

[Die Muhkuh]

Classes (da FindComponent eine Methode von TComponent und TComponent ist in Classes)

[Andreas L.]

Die habe ich eingebunden...

Also ich habs jetzt so gelöst: (Sender as TPanel).FindComponent('Headline_'+(Sender as TPanel).Name).font.color:=clWhite; Würde auch funktionieren wenn nicht "Undefinierter Bezeichner: Font" kommen würde...

Auch folgendes geht nicht:

(Sender as TPanel).FindComponent('Headline_'+(Sender as TPanel).Name as TLabel).font.color:=clWhite;