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:

Delphi-Quellcode:

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:

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]

Delphi-Quellcode:

(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:

Delphi-Quellcode:

(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:

Delphi-Quellcode:

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

[mirage228]

Hi,

vielleicht so

Delphi-Quellcode:

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

?

mfG
mirage228

[Kinimod8]

Geht meine Lösung wirklich nicht? Bei mir gehts :gruebel: (#7)

[Andreas L.]

Zitat:

Zitat von mirage228

Hi,

vielleicht so

Delphi-Quellcode:

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

?

mfG
mirage228

Dann kommt auch

Zitat:

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

Wie schaffe ich es nur die Farbe des Label zu ändern.......

[Hawkeye219]

Du brauchst zunächst einmal den Zeiger auf das Panel:

Delphi-Quellcode:

myPanel := Sender AS TPanel;

Dann besorgst Du Dir den Zeiger auf das Label. Ich gehe hier einmal davon aus, daß sich das Label auf dem Formular mit dem Namen 'Form1' befindet:

Delphi-Quellcode:

myLabel := Form1.FindComponent('Headline_' + myPanel.Name) AS TLabel;

Jetzt kannst Du auf das Label zugreifen:

Delphi-Quellcode:

myLabel.Caption := 'blubb';
myLabel.Font.Color := clWhite;

Die benötigten Variablen mußt Du natürlich noch deklarieren.

Gruß Hawkeye

[Andreas L.]

Jetzt funktionierts. Vielen Dank :thumb: