Mehrere visuelle Komponenten disablen

[DelphiManiac]

Hallo,

ich bin mir sicher, dass dieses Problem schon irgendwo gelöst worden ist, aber habe trotz intensiver Suche nicht die Lösung gefunden.

Ich habe eine Groupbox und will alle Controls dieser Groupbox disablen.

Habe es folgendermaßen versucht:

Delphi-Quellcode:

    
for I := 0 to   uMainGUI.MainGUI.grpAnalog1Oxy.ComponentCount-1 do
begin
  ((uMainGUI.MainGUI.grpAnalog1Oxy.Components[i]) As TControl).Enabled := false; 
end;

Hat aber nicht den gewünschten Erfolg gehabt, weiß aber, dass ich zumindest schon auf dem richtigen Weg bin

Vielen Dank
DelphiManiac

[Luckie]

Deaktivier die Groupbox.

[DelphiManiac]

Hi Luckie,

ja es geht mir nicht unbedingt darum, dass man die Elemente nicht mehr bedienen kann, sonst wäre die Deaktivierung der Groupbox der einfachste Weg. Ich will primär die Elemente disablen, soll einen optischen Effekt haben, dass man weiß :"Ok diese Option ist nicht anwählbar"

Gruß
DM

[Luckie]

Dann sag uns mal, was unter "nicht gewünschten Erfolg" verstehst.

[DelphiManiac]

Sorry, habe mich da wirklich nicht deutlich genug ausgedrückt:

Also meine Schleife wird nicht durchlaufen, bzw ComponentsCount = 0.

Wie kann man denn die Komponenten iterieren, die einem Container (hier halt eine Groupbox) angehören?

[SirThornberry]

ComponentCount gibt die Anzahl der Componenten an welche diese Komponente als Owner haben. Willst du die daraufliegenden Elemente enumerieren ist ControlCount der richtige Ansatz.

[DelphiManiac]

@SirThornberry:

Ja du hast recht habe Components mit Controls verwechselt.
Jetzt geht es:

Delphi-Quellcode:

for I := 0 to uMainGUI.MainGUI.grpAnalog1Oxy.ControlCount-1 do
begin
  ((uMainGUI.MainGUI.grpAnalog1Oxy.Controls[i]) As TControl).Enabled := false;
end;

Jetzt spar ich mir eine Menge Zeilen Code.

Danke!