Wie muss dieser Code lauten?

[fLaSh11]

Hallo,
heute isses ne kurze und simple Frage:
Sagen wir, ich habe 10 Shapes in einer Form. Bin faul :o und will das so machen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
for i:=1 to 10 do Shape[i].Enabled:=false;
end;

warum funzt das nicht? Ich bin sicher, ihr könnt mir schnell helfen...
:coder2:
danke im Vorraus :!:

[Luckie]

Objekte kan man nicht so über ein Array ansprechen. Entweder du pckst selber alles Shapes in ein Array vom Typ TShape oder du benutzt FindComponent.

[mkinzler]

Wenn du die Shapes ernfach auf der Form abegelgt hat und diese Shape1, Shape2 usw heißen müßte es so gehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
  for i:=1 to 10 do Form.FindComponenent( Shape+IntToStr(i)).Enabled:=false;
end;

[fLaSh11]

:thumb: danke, funktioniert... wenn man die DP nicht hätte...

... was wäre dann???

[TeronG]

Delphi-Quellcode:

for I:=0 to ComponentCount-1 do
  if Components[I] is TABLED 
    then (Components[i] as Tabled).Showhint:=True;

Zitat:

Zitat von fLaSh11

... was wäre dann???

Hilflosigkeit, Chaos, ... OhMeinGott ich wills mir garnicht erst ausmahlen :pale: :shock: ... :mrgreen:

[inherited]

ARRRRGH dann würde die welt in einer wolke aus Chaos und zerstörung zurückbleiben, zumal dann alle schönen Objekte woe Bäume die natürlich mit

Delphi-Quellcode:

Baum[1929]:=TBaum.Create(Earth);

erstellt wurden weg und noch viel mehr
:x :x :cry: :cry: :cry: :cry: