Componentname in String umwandeln

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