with...do mit mehreren Objekten

[lhmultimedia]

Ich programmier grad ein Hauptmenü , bei dem mehrere Buttons, nachdem man einen Button gedrückt hat, sichtbar und aktiv werden.
Ich wollte deshalb alle Buttons mit With...do auf enabled := true und visible := true stellen.
Seltsamerweise erscheint aber nur der Letzte Button auf dem Formular.
Kann mir wer helfen?
(Wers noch nich kapiert hat: Ich wollt nur fragen, wie es geht mit with...do mehrere Objekte anzusprechen )
Hier mein Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Button4, Button5, Button6, Button7, Button8, Button9, Button10, Button11
do
begin
Enabled := True;
Visible := True;
end;
end;

[Matze]

Hi,

ich kann nur eine Alternative anbieten: FindComponent.

[lhmultimedia]

WOW Schelle Antwort! Das ging ja grad mal ne Minute!
Ich kucks mir mal an aber am liebsten wärs mir immernoch mit with...do!
Weis da wer was?

[lhmultimedia]

EDIT: Hab alles wieder weggemacht

[Oxmyx]

Die With-Anweisung gilt immer nur für ein Objekt, nämlich das im innersten Gültigkeitsbereich.

Hier hast du noch ein With-Block drin:

Delphi-Quellcode:

for i := 4 to 11 do begin
  with TButton(FindComponent('Button' + IntToStr(i))) do begin
    Visible := True;
    Enabled := True;
  end;
end;

[Oxmyx]

Zitat von lhmultimedia:

Ich hab das jetz mal nachgeschaut!
Was soll mir das denn bringen?
Ich such was, wo mehrere Objekteigenschaften auf einmal ändert und nich was mir zurückgibt, ob das Objekt irgendnem anderen untergeordnet is!

Wenn du willst, dass man dir hilft, dann verhalte dich auch entsprechend...

[lhmultimedia]

Jaja, sorry.
Ich hab das mal ausprobiert, es geht auch aber die Buttons sind nur sichtbar (Visible) aber nicht aktiv (enabled) geworden.

[Oxmyx]

Zitat von lhmultimedia:

Jaja, sorry.
Ich hab das mal ausprobiert, es geht auch aber die Buttons sind nur sichtbar (Visible) aber nicht aktiv (enabled) geworden.

Mir ist da ein kleiner Flüchtigkeitsfehler passiert. Hinter das "do" muss noch ein "begin" eingefügt werden (siehe oben).

[lhmultimedia]

Danke für die Tipps!
Ich probiers aus und hoff es funzt!