Componentname in String umwandeln

[mirage228]

Hi,

vielleicht so
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 (#7)

[Andreas L.]

Zitat von mirage228:

Hi,

vielleicht so
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:
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:
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