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.