Alle Komponenten eines Typs ansprechen

[Larsi]

Hi,
wenn ich auf einem Formular bspw. 20 Trackbars habe, wie kann ich dann alle gleich verändern z.B. um die Eigenschaft Enabled zu ändern. Alle hintereinander aufzulisten von 1 bis 20 macht den Quellcode nur unnötig groß und ist unprofessionell. Habt ihr einen Plan?

MFG Lars Wiltfang

[Hybrid666]

Möglichkeit 1 (imho die "saubere"):

Erstelle einen Array mit Referenzen auf die einzelnen Trackbars, dann kannst du den array durchgehen mit direkten zugriff.

Möglichkeit 2 (bitte nicht hauen an die die FindComponent für schlecht halten :D):

FindComponent, damit kannst du Komponenten finden. Wenn also deine TrackBars durchnumeriert sind:

Delphi-Quellcode:

for I := 1 to 20 do
  (FindComponent ('TrackBar' + IntToStr (I)) as TTrackBar).Enabled := True;

MfG

[Bernhard Geyer]

Wie immer in solchen Fällen:

Durchsuchen der Liste der Controls über Property Components/ComponentsCount und checken des Types mit .Components[i] is <MeingewünschterTyp>

[Larsi]

Danke für euren schnellen Posts :thumb: :dp: Das hab ich gesucht!