Alle Komponenten einer Application ändern

[Dragon27]

Hallo habe folgenden Code gefunden:

Delphi-Quellcode:

  for I := 0 to chatform.ComponentCount-1 do begin
    if chatform.Components[I] is TLabel then
      TLabel(chatform.Components[I]).Font.Color := clred;
      end;

Hier werden alle Labels auf Rot gesetzt die im Formular Chatform sind. Ich würde aber gerne alle Labels Programmweit umstellen. Geht das?
Bei über 23 Formen wird das unübersichtlich jedes einzeln aufzurufen.

Danke für die Antworten

[Martin K]

Moin,

theoretisch müsste das dann gehen, indem du chatform durch Application ersetzt.
Kann aber auch sein, dass Du erst alle Komponenten der Application als TForm durchgehen musst und dann von den jeweiligen Forms eben die Labels...

[Zacherl]

Versuch mal statt "chatform" "Application" zu benutzen.

Florian

//Edit: Kein roter Kasten

[Michael Habbe]

Zitat von Dragon27:

Ich würde aber gerne alle Labels Programmweit umstellen. Geht das?
Bei über 23 Formen wird das unübersichtlich jedes einzeln aufzurufen.

Tja, Du wirst nicht drumrum kommen, diese Funktion für jedes Formular umzusetzen. Mir ist keine Funktion bekannt, wo man als Ergebnis die Namen der kreierten Formulare in z.B. einer StringList zurückbekommt.

Am besten im FormCreate für jedes Formular:

Delphi-Quellcode:

  for I := 0 to ComponentCount-1 do
    if Components(I) is TLabel then
      TLabel(Components(I)).Font.Color := frmMain.myLabelColor; // als Property

edit: Da schon wieder:

Zitat von Florian Bernd:

//Edit: Kein roter Kasten

Was ist der rote Kasten?

[Zacherl]

Oder halt so:

Delphi-Quellcode:

for I := 0 to Application.ComponentCount-1 do 
begin
  if Application.Components(I) is TForm then 
  begin
    for i2 := 0 to TForm(Application.Components(I)).ComponentCount -1 do
      TLabel(TForm(Application.Components(I)).Components[i2].Font.Color := clRed;
  end;
end;

//Edit: Der "rote Kasten" warnt dich beim Abschicken eines Post, wenn in der Zeit während du geschrieben hast neue Beiträge dazukamen. Dass soll verhindern, dass mehrmals der selbe Vorschlag gepostet wird.

[Michael Habbe]

Zitat von Florian Bernd:

Oder halt so:

Delphi-Quellcode:

for I := 0 to Application.ComponentCount-1 do 
begin
  if Application.Components(I) is TForm then 
  begin
    for i2 := 0 to TForm(Application.Components(I)).ComponentCount -1 do
      TLabel(TForm(Application.Components(I)).Components[i2].Font.Color := clRed;
  end;
end;

//Edit: Der "rote Kasten" warnt dich beim Abschicken eines Post, wenn in der Zeit während du geschrieben hast neue Beiträge dazukamen. Dass soll verhindern, dass mehrmals der selbe Vorschlag gepostet wird.

Denn habe ich diesen Kasten aber auch schon gehabt. In den letzen Tagen.

Sicherheitshalber auch noch nach Label schauen:

Delphi-Quellcode:

for I := 0 to Application.ComponentCount-1 do 
begin
  if Application.Components(I) is TForm then 
  begin
    for i2 := 0 to TForm(Application.Components(I)).ComponentCount -1 do
      if TForm(Application.Components(I)).Components[i2] is TLabel then
        TLabel(TForm(Application.Components(I)).Components[i2].Font.Color := clRed;
  end;
end;

[Dragon27]

Hallo,

habe das hier Probiert:

Delphi-Quellcode:

for I := 0 to Application.ComponentCount-1 do
begin
  if Application.Components[i] is TForm then
  begin
    for i2 := 0 to TForm(Application.Components[I]).ComponentCount -1 do
      TLabel(TForm(Application.Components[I]).Components[i2].Font.Color := clRed;
  end;
end;

Aber er zeigt diesen einen Fehler:

Zitat:

[Fehler] LoadFrame.pas(75): E2003 Undefinierter Bezeichner: 'Font'

[edit=SirThornberry]Delphi Tag berichtigt - Mfg, SirThornberry[/edit]

[fkerber]

Hi!

Zitat von Michael Habbe:

edit: Da schon wieder:

Zitat von Florian Bernd:

//Edit: Kein roter Kasten

Was ist der rote Kasten?

Ich zitiere mal von hier: http://www.delphipraxis.net/internal...ct.php?t=46416

Zitat:

Schon mal beim Schreiben überholt worden?
Wenn Du einen Beitrag zu einem Thema schreibst, und wer Anders schreibt zwischenzeitlich ebenfalls etwas Neues, so wirst Du vor dem Absenden Deines Beitrages darauf hingewiesen und kannst den neuen Beitrag in Deiner Antwort ggf. berücksichtigen - in manchen Fällen erübrigt sich eine weitere Antwort dann ja auch. Neue und editierte Beiträge werden in der Themenrückschau (unter den Beitragseditor) farblich hervorgehoben.

s. hier: http://www.delphipraxis.net/images/a...ileposting.gif


Ciao, Frederic

[Michael Habbe]

Da fehlt eine Klammer zu ")"

Zitat von Dragon27:

Delphi-Quellcode:

for I := 0 to Application.ComponentCount-1 do
begin
  if Application.Components[i] is TForm then
  begin
    for i2 := 0 to TForm(Application.Components[I]).ComponentCount -1 do
      TLabel(TForm(Application.Components[I]).Components[i2].Font.Color := clRed;
                                                           ^^ da fehlt die Klammer zu ")"
  end;
end;

Aber er zeigt diesen einen Fehler:

Zitat:

[Fehler] LoadFrame.pas(75): E2003 Undefinierter Bezeichner: 'Font'

[Dragon27]

Danke für die Hilfe....

aber bei diesem Code:

Delphi-Quellcode:

for I := 0 to Application.ComponentCount-1 do
begin
  if Application.Components[i] is TForm then
  begin
    for i2 := 0 to TForm(Application.Components[I]).ComponentCount -1 do
      TLabel(TForm(Application.Components[I]).Components[i2]).Font.Color := clRed;
  end;
end;

bekomme ich lauter Zugriffsverletzungen

danke für die Hilfe