zur laufzeit erstelltes objekt ansprechen

[DeddyH]

Und nun mal ohne with und benannte Instanz:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  shape := TShape.Create(self); //die aktuelle Instanz
  shape.Parent := self; //hier auch
  shape.Left := 0;
  shape.Top := 0;
  shape.Width := 100;
  shape.Height := 50;
  shape.Shape := stRoundRect;
  shape.Name := 'Shape1';
  shape.onClick := OnShapeKlick;
end;

[himitsu]

Dynamisch erstellte Komponenten brauchen nicht unbedingt einen Namen. (Shape1)
Durch den statischen Namen knallt es, wenn man zweimal auf den Button drückt, da der Name eindeutig sein muß.

Statt der 4 Parameter kann man diese auch auf Einmal setzen Shape.SetBounds(...) .

Und ich hoffe mal, das "Shape" ist nicht wirklich eine globale Variable.

[s.h.a.r.k]

Zitat von DeddyH:

Und nun mal ohne with und benannte Instanz:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  shape := TShape.Create(self); //die aktuelle Instanz
  shape.Parent := self; //hier auch
  shape.Left := 0;
  shape.Top := 0;
  shape.Width := 100;
  shape.Height := 50;
  shape.Shape := stRoundRect;
  shape.Name := 'Shape1';
  shape.onClick := OnShapeKlick;
end;

Man sollte hier auch noch dazu sagen, dass with sehr böse werden kann. Man spart sich zwar Schreibarbeit, ist aber imho einfach weniger präziser, als wenn man immer shape.[Property|Methode] verwendet. An diesem Beispiel sieht man auch warum, denn TForm1 hat auch eine OnClick-Methode. Klar, der Compiler wird hier immer erst nach dem with schauen, aber für andere könnte der Code weniger verständlich sein. Ebenso ist der Code mit dem with weniger robust gegenüber Änderungen. Aber es kann sich jeder selbst überlegen, was er bevorzugt. Wollte es nur der vollständigkeithalber erwähnen

[blubber443]

thx, probiers gleich mal aus

[blubber443]

ich hätt da nur noch eine einizige frage; da ich mit einer unbekannten anzahl an shapes arbeite wär es schön einen array zuzulegen, wie würde das gehen?

[vagtler]

Zitat von blubber443:

[...] da ich mit einer unbekannten anzahl an shapes arbeite wär es schön einen array zuzulegen [...]

Nein, wäre es nicht. Dafür gibt es geeignetere Container, wie z.B. Listen.

[himitsu]

Da es Objekte sind, vorzugsweise eine Objektliste.

Was willst du denn später mit diesen gespeicherten Instanzzeigern anfangen?


Ich bin mir auch ganz sicher, in der Stadt mal einen Großbuchstaben sehn zu haben.
Also damit kann ich mich das Fehlen selbiger nicht erklären.

[DeddyH]

TComponentList

[mkinzler]

Delphi-Quellcode:

Shapes: Array of TShape;
...
i := Length(Shapes);
Setlength( Shapes, i+1);
shapes[i] := TShape.Create(self); 
...

Aber für die Events istr das garnicht notwendig, weil die Instanz ja im Parameter Sender übergeben wird.