funktioniert leider nicht bzw. ich bekomms nicht hin da mein element keinen namen hat und ich das auch nicht hinbekomme wenn ich einen namen gebe da ich das später dann mit dem namen irgendwie nicht ansprechen kann:
Delphi-Quellcode:
...
var
...
Geldstuck: array [1..100] of TShape;
implementation
...
procedure TForm1.setzen(xKoordinate,yKoordinate: integer);
begin
SetzAnzahl:=SetzAnzahl+1;
Geldstuck[SetzAnzahl]:=TShape.create(form1);
Geldstuck[SetzAnzahl].parent:=form1;
Geldstuck[SetzAnzahl].shape:=stcircle;
Geldstuck[SetzAnzahl].width:=20;
Geldstuck[SetzAnzahl].height:=20;
Geldstuck[SetzAnzahl].brush.color:=clred;
Geldstuck[SetzAnzahl].left:=xKoordinate-form1.left-15;
Geldstuck[SetzAnzahl].top:=yKoordinate-41;
Geldstuck[SetzAnzahl].bringtofront;
//showmessage('gesetzt');
end;
...
[edit=Luckie]Delphi-Tags gesetzt. Mfg, Luckie[/edit]