Auf Control zugraufen per Schleife?

[Robert_G]

Ich dachte ich greife dein Beispiel auf.

Zitat von Taladan:

Delphi-Quellcode:

   for i := 0 to 5 do begin
     button[i].visible := false;
     panel[i].visible := false:
   end;

[Taladan]

Delphi sagt mir aber, das ein ArrayTyp erforderlich ist. Soweit war ich auch schon, das klappt leider nicht.

[MathiasSimmack]

Controls ist doch ein Arraytyp. Klappt ja selbst mit CSharp wunderbar:

Code:

private void SetChildrenVisibility(Control parent, bool visible)
{
  foreach(Control control in parent.Controls) {
    control.Visible = visible;
  }
}

this.SetChildrenVisibility(this, false);

[Taladan]

ich nutze jedoch delphi

[MathiasSimmack]

Das habe ich bereits bemerkt. Wenn du aber tatsächlich für das .NET Framework schreibst, und nicht die VCL.NET benutzt, dann ist es letztlich nur eine Frage der anderen Syntax.

[MathiasSimmack]

Ich habe das kurze Codestückchen mal eben kompiliert und die Exe im Reflector betrachtet. Die Umschaltung auf Delphi ergab:

Delphi-Quellcode:

procedure MainForm.SetChildrenVisibility(parent: Control; visible: boolean);
begin
  for control1 in parent.Controls do
  begin
    control1.Visible := visible
  end
end;

Warum jetzt die Variable control1 nirgendwo deklariert wird, kann ich dir aber nicht sagen. Evtl. ein kleines Problem im Programm, denn die VB-Variante scheint korrekt zu sein:

Code:

Private Sub SetChildrenVisibility(ByVal parent As Control, ByVal visible As Boolean)
      Dim control1 As Control
      For Each control1 In parent.Controls
            control1.Visible = visible
      Next
End Sub

[Taladan]

Auch wenn obriges beispiel funtionieren sollte, hilft es nciht weiter. Immerhin will ich nicht alle sondern ausschlißlich ein paar Panels und Buttons sichbar (und andocken) machen.

[Robert_G]

Bevor hier Mathias noch 5-mal sagt, dass es geht und du darauf sagst, dass es nicht geht und ...

Ich habe deine Problem so aufgefasst, dass du auf ein paar Controls in einer Schleife zugreifen willst:

Zitat:

Ich möchte gerne auf Controls (u. a. auf Buttons und Panels) per schleifen zugreifen.

Könnte man also fast so auffassen.

Mein kleiner Minischnipdel macht nix anderes als Visible der Controls eines Forms/Panels/TabSheets/whatsoever auf true oder auf false zu setzen.
Die Syntax /IST/ kompatibel zu D.Net auch wenn ich zuviel Stolz habe um es selbst auszuprobieren.
Was Delphi vielleicht nicht schnallt ist das hier:Control : Control; auch wenn's dann kkomisch aussieht, benenne die Variable einfach mal um. )

Nachtrag: Auch wenn obriges beispiel funtionieren sollte, hilft es nciht weiter. Immerhin will ich nicht alle sondern ausschlißlich ein paar Panels und Buttons sichbar (und andocken) machen. Aha! nun kommen wir doch der Sache etwas näher.
Werfe betreffende Controls in einen Container (ArrayList, ControlCollection, ...) und nun kansst du durch den iterieren.

p.s.: Mathias' Code war natürlich falsch.

[MathiasSimmack]

Zitat von Robert_G:

p.s.: Mathias' Code war natürlich falsch.

Nur wenn man die neue Situation bzw. die neuen Informationen zugrunde legt, an denen ich nun auch teilhaben durfte.

[Robert_G]

Zitat von MathiasSimmack:

Zitat von Robert_G:

p.s.: Mathias' Code war natürlich falsch.

Nur wenn man die neue Situation bzw. die neuen Informationen zugrunde legt, an denen ich nun auch teilhaben durfte.

Wäre immer falsch, außer du bist so krank und deklarierst Control1 als feld des Forms...