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 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...

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]

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 von fLaSh11:

... was wäre dann???

Hilflosigkeit, Chaos, ... OhMeinGott ich wills mir garnicht erst ausmahlen ...

[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
Baum[1929]:=TBaum.Create(Earth); erstellt wurden weg und noch viel mehr