Auf Control zugraufen per Schleife?

[Taladan]

Ich möchte gerne auf Controls (u. a. auf Buttons und Panels) per schleifen zugreifen.
Das klappt aber nicht so wie ich es mir vor stelle, kann mir einer sagen wie ich es richtig machen muß?
z.b.:

Delphi-Quellcode:

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

[Luckie]

Die Suche ist dein Freund: FindComponent.

[Taladan]

Ich finde nur Win32 antoworten.

Delphi-Quellcode:

      FindComponent('Button' + (i)) as Button).Visible := false

Hier wird nur schön fein säuberlich FindComponent rot unterkringelt...

[Luckie]

Man könnte ja auch mal so verwegen sein und das genannte Stichwort in der Hilfe nachschlagen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 dobegin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;
end;

[Daniel G]

Zitat:

Zitat von Taladan

Ich finde nur Win32 antoworten.

Delphi-Quellcode:

      FindComponent('Button' + (i)) as Button).Visible := false

Hier wird nur schön fein säuberlich FindComponent rot unterkringelt...

Jo, und wo ist jetzt das Problem? Schließlich ist das ja hier auch ein Win32 - Thread, oder?

//Ups, sorry Luckie... Hab' mir den Post zu lange angesehen...

[Taladan]

Das gepostete Beispiel funtkionert nicht bei .Net anwendungen

[mirage228]

Hallo,

habe diesen Code eben mit Delphi 2005 VCL.NET getestet und er lässt sich kompilieren:

Delphi-Quellcode:

var
  i: integer;
begin
  for i := 0 to 3 do
  begin
    (FindComponent('Button' + (IntToStr(i))) as TButton).Visible := false
  end;
end;

oder arbeitest Du mit WinForms?

mfG
mirage228

[Robert_G]

Zitat:

Zitat von Taladan

Das gepostete Beispiel funtkionert nicht bei .Net anwendungen

Zum Glück auch. Solchen Newbie-Kram wie FindComponent haben sie erst wieder in .Net 2.0 (2.0 ist enorm VB-Noob verseucht :zwinker: ) eingeführt... :?
was du willst ist wahrscheinlich:

Delphi-Quellcode:

class procedure DingsBums.SetChildrenVisibility(parent :Control; visible :Boolean);
var
  Control : Control;
begin
  for Control in parent.Controls do
    Control.Visible := visible;

Habe ich zwar nicht mit D.Net gestestet, aber in dem Punkt dürfte die Syntax beider Pascal.Net gleich sein. ;)

[Taladan]

Zitat:

Zitat von Robert_G

Delphi-Quellcode:

class procedure DingsBums.SetChildrenVisibility(parent :Control; visible :Boolean);
var
  Control : Control;
begin
  for Control in parent.Controls do
    Control.Visible := visible;

Leider kann ich mit diesen beispiel rein gar nichts anfangen...

[MathiasSimmack]

In welcher Hinsicht? Verstehst du es nicht? Oder lässt es sich nicht kompilieren?
Du musst solche Informationen auch angeben, :roll:, weil man dir sonst nicht helfen kann.