Einzelnen Beitrag anzeigen

Dragon27

Registriert seit: 20. Nov 2003
Ort: Aßling
543 Beiträge
 
Delphi XE6 Enterprise
 
#1

Alle Komponenten einer Application ändern

  Alt 27. Jul 2006, 23:05
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
Delphi is ......... DELPHI!!
  Mit Zitat antworten Zitat