Eigenschaft für alle vorh. Komponenten setzen

[zecke]

:hi:



Falls es schon mal gefragt wurde, habe ich es nicht gefunden, auch weil Suchbegriffe für meine Frage etwas kompliziert sein könnten, wenn man davon keine Ahnung hat :D

Und zwar möchte ich eine Eigenschaft für alle auf der Form vorhandenen Komponente gleichen Typs einstellen. Z.B. habe ich 25 Labels, ich möchte dann nur ein mal definieren, was in dem Label stehen soll und nicht erst alles per Hand einstellen.


Ich glaube es kann nicht schwer sein, aber ich weiß nicht wie ich das anstellen soll :?


Danke im voraus :)

[Maja Jessica]

:hi:

Delphi-Quellcode:

(FindComponent('Label'+IntToStr(i)) as TLabel).Caption := 'Hui';

MJ

[Jürgen Thomas]

Oder so:

Delphi-Quellcode:

for i := 0 to Form1.ControlCount - 1 
do begin
  if Form1.Controls[i] is TLabel
  then (Form1.Controls[i] as TLabel).Caption := 'einheitliche Beschriftung';
end;

Gruß Jürgen

PS. Bitte nicht sauer sein, wenn ich die Schreibweisen durcheinander bringe; ich schreibe zz. nur noch C#.

[zecke]

Hui :) :thumb:

Es funktioniert :) (hatte ich wieder in der Nase, dass es nicht so schwer sein kann :mrgreen:)

Meine Lösung (i:=3):

Delphi-Quellcode:

  for a:=0 to i do begin
    (FindComponent('Edit'+IntToStr(a)) as TEdit).Text := 'Hui';
  end;

Danke Maja Jessica!

ps: sehe jetzt den Beitrag von Jürgen Thomas. Das erspart mir eine Zuweisung von i. Danke auch dir :)