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

markieren

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

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.

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

markieren

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;

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

... was wäre dann???

markieren

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

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