AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Alle Komponenten einer Application ändern

Ein Thema von Dragon27 · begonnen am 28. Jul 2006 · letzter Beitrag vom 28. Jul 2006
Antwort Antwort
Seite 1 von 2  1 2   
Dragon27

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

Alle Komponenten einer Application ändern

  Alt 28. Jul 2006, 00: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
Benutzerbild von Martin K
Martin K

Registriert seit: 20. Okt 2005
919 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Alle Komponenten einer Application ändern

  Alt 28. Jul 2006, 00:14
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...
Mit den Menschen ist es wie mit Computern -
es gibt Nullen und Einsen.
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#3

Re: Alle Komponenten einer Application ändern

  Alt 28. Jul 2006, 00:14
Versuch mal statt "chatform" "Application" zu benutzen.

Florian

//Edit: Kein roter Kasten
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
Benutzerbild von Michael Habbe
Michael Habbe

Registriert seit: 10. Aug 2005
264 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Alle Komponenten einer Application ändern

  Alt 28. Jul 2006, 00:17
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?
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#5

Re: Alle Komponenten einer Application ändern

  Alt 28. Jul 2006, 00:21
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.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
Benutzerbild von Michael Habbe
Michael Habbe

Registriert seit: 10. Aug 2005
264 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Alle Komponenten einer Application ändern

  Alt 28. Jul 2006, 00:25
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;
  Mit Zitat antworten Zitat
Dragon27

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

Re: Alle Komponenten einer Application ändern

  Alt 28. Jul 2006, 00:25
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]
Delphi is ......... DELPHI!!
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#8

Re: Alle Komponenten einer Application ändern

  Alt 28. Jul 2006, 00:26
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
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von Michael Habbe
Michael Habbe

Registriert seit: 10. Aug 2005
264 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: Alle Komponenten einer Application ändern

  Alt 28. Jul 2006, 00:28
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'
  Mit Zitat antworten Zitat
Dragon27

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

Re: Alle Komponenten einer Application ändern

  Alt 28. Jul 2006, 00:31
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
Delphi is ......... DELPHI!!
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz