Alle Komponenten ansprechen

[R2D2]

Hallo!

Gibt es eine Möglichkeit alle Komponenten des Formulars auf einmal anzusprechen, ohne dabei mit FindComponent alle durchzurattern?

[Dax]

Ich glaube jede TForm-Instanz hat eine Property namens Components, in der alle Komponenten auf dem Form aufgeführt sind.

[R2D2]

Ja, schon klar.

Also, was ich machen will ist, alle Komponenten auf einmal unsichtbar zu machen. Mit
self.components[i].visible geht das nich, da er visible nich kennt.

Desswegen suche ich eine andere Lösung.

[xaromz]

Hallo,

Zitat von R2D2:

Also, was ich machen will ist, alle Komponenten auf einmal unsichtbar zu machen. Mit
self.components[i].visible geht das nich, da er visible nich kennt.

Desswegen suche ich eine andere Lösung.

Komponenten kann man nicht unsichtbar machen. Nur Controls.
Versuch's doch so:

Delphi-Quellcode:

if Components[i] is TControl then
  TControl(Components[i]).Visible := False;

Gruß
xaromz

[Dax]

Dann kann man aber doch gleich .Controls benutzen, wenn man eh nur Controls haben will