Alle Captions ändern

[Dragon27]

Hallo,

hänge im Moment an einem Problem und weiß auch nicht ob es überhaupt lösbar ist.

Ich würde gerne bei allen Komponenten, die die Property Caption haben, diese ändern.
Ist das möglich? Zumal ich ja keinen Typ (TLabel) angeben will...

Danke für die Hilfe!

[himitsu]

http://www.delphipraxis.net/internal...hlight=caption

[Bernhard Geyer]

Nimm die Funktonen aus TypeInfo.pas und gehe über die RTTI.

[blablab]

du könntest dich wahrscheinlich auch rekursiv durch alle Components durchhangeln, also in etwa:

Delphi-Quellcode:

procedure bla(c: TComponent)
   for i := 0 to c.ComponentsCount-1 do begin
      bla(c.Components[i])
      try
         (c.Components[i] as TControl).Caption := str
      except
      end
   end
end

[Teekeks]

wobei Rekursion jetzt nicht so die beste Lösung währe...

[blablab]

wahrum? Wenn ich fragen darf...

[DeddyH]

Wozu das Array rekursiv durchlaufen? Einmal reicht doch.

[edit] Achso, wegen der Unterkomponenten. [/edit]

[blablab]

Ja genau. Beispiel:

Wenn man zb auf einer Form ein Panel und ein Label in diesem Panel hat, dann hat die Form nur die Komponente Panel und das Panel die Komponente Label.
Wenn man also nur die Komponenten von der Form durchgeht, erreicht man nicht das Label.

[dominikkv]

Zitat:

Zitat von blablab

Ja genau. Beispiel:

Wenn man zb auf einer Form ein Panel und ein Label in diesem Panel hat, dann hat die Form nur die Komponente Panel und das Panel die Komponente Label.
Wenn man also nur die Komponenten von der Form durchgeht, erreicht man nicht das Label.

Probiers mal aus :wink:

[Blup]

Nicht Controls und Components verwechseln.
Owner aller Komponenten ist normalerweise die Form.
Ausnahme wären z.B. TRadioGroup, die eigene Steuerelemente verwalted.

[blablab]

Aber echt, sorry! :oops:
Ich hab da wohl was verwechelt.
Es reicht also nur die Components der Form durchzugehen...

Oder folgendes:

Delphi-Quellcode:

procedure bla(c: TControl) 
   for i := 0 to c.ControlCount-1 do begin 
      bla(c.Controls[i]) 
      try 
         c.Controls[i].Caption := str 
      except 
      end 
   end 
end

weil man benötigt ja eigentlich nur die Controls und nicht die Components...

(der code ist nur bsp-code)

[DeddyH]

Und auch das wird ohne Hack nicht gehen. Schau Dir mal den verlinkten Thread von himitsu an.

[blablab]

Aber mit hack... (hab ja dazugeschrieben dass es nur beispielcode ist)

Dragon27 sollte sich auf jeden fall den Beitrag von himitsu angucken. Und wenn er sich duch die Komponenten durchhangeln muss, dann kann ers ja so machen wie ichs geschrieben hab...