Array von TShapes visible machen

[Klaus01]

mal ohne Array

Delphi-Quellcode:

  for i := 1 to 50 do begin
    (FindComponent('Shape' + IntToStr(i)) as TShape).visible := false;
  end;

Grüße
Klaus

[DeddyH]

Oder auch

Delphi-Quellcode:

for i := 0 to ControlCount - 1 do
  if Controls[i] is TShape then
    TShape(Controls[i]).Visible := false;

(ungetestet). Dann kann man den Shapes auch aussagefähigere Namen geben, und sie werden trotzdem gefunden.

[Shoqez]

Zitat von Klaus01:

mal ohne Array

Delphi-Quellcode:

  for i := 1 to 50 do begin
    (FindComponent('Shape' + IntToStr(i)) as TShape).visible := false;
  end;

Grüße
Klaus

Danke dir Klaus!
Funktioniert 1A. Werde mich jetzt wahrscheinlich öfter bei euch im Forum melden.
Schönen Tag euch noch!

[TurboMagic]

Alternativ die Shapes zur Laufzeit erzeugen und in das von dir erwähnte Array speichern. Das wäre die Methode wenn Performance eine wichtige Rolle spielt.