So hab ich es auch wieder nicht gemeint, aber es ist schon ärgerlich das man meistens min. 5 Stunden warten muss, bis etwas kommt. Aber wie gesagt, sorry für die Bemerkung
Hmm also das von axel klappt nicht so ganz. ich muss das ja auch in nen Spriteändern oder? also ich habe das jetzt so:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
Gegen : Array of TImageSprite;
begin
setlength(Gegen,6); // 6 Steine
for i := 0 to high(Gegen) do
begin
with Gegen[i] do
begin
TGegenstand.Create(self);
inherited Create(AParent);
Image := Form1.DXImageList1.Items.Find('Stone');
Top := trunc(random * 300); // Zufallszahlen als Bsp
left := trunc(random * 300);
height := 36;
width:= 36;
Visible := true;
Show;
end;
end;
end;
keine ahnung ob das richtig ist, aber wenn ich es ausführen möchte, kommt diese Fehlermeldung:
[Error] Unit1.pas(284): Incompatible types: 'TSprite' and 'TForm1'
[Error] Unit1.pas(285): Undeclared identifier: 'AParent'
Kann mir da jemand helfen?