Images mehrfach verwenden

[fabgo]

Hallo an alle,

habe folgendes problem: ich möchte eine grafik in delphi mehrfach verwenden.

das funktioniert aber nicht.

Delphi-Quellcode:

  ImSchuesse:Array[0..50] of TImage;
  schuesse:Array[0..100] of Tshot;

in der ersten prozedur steht folgendes:

Delphi-Quellcode:

for i:=0 to 50 do
   begin
     ImSchuesse[i]:=strich;   // strich ist eine grafik
   end;
  Anzahl:=1;

und dann beim aufruf:

Delphi-Quellcode:

if(Key=VK_SPACE)  then
 begin
    schuesse[Anzahl]:=Tshot.Create(Player.GetX, Player.GetY, 0, 0, ImSchuesse[Anzahl], Form1);
    Anzahl:=Anzahl+1;
 end

Es wird aber immer nur einmal die grafik aufgerufen...wie kann ich bilder duplizieren?

gruß fabgo

[Ratte]

Das Problem ist dass du Pointer zuweist.

Delphi-Quellcode:

for i:=0 to 50 do
   begin
     ImSchuesse[i]:=TImage.create.
     ImSchuesse[i].assign:=strich.Graphic;   
   end;
  Anzahl:=1;

(Ich hoffe dass ich den parameter von assign richtig gewählt habe...)

[fabgo]

so funktioniert das aber nicht.

problem: Nicht genügend wirkliche Parameter

welche Parameter muss man da denn jetzt angeben?

[Helmi]

Hallo,

so würds gehen:

Delphi-Quellcode:

for i:=0 to 50 do
   begin
     ImSchuesse[i] := TImage.create(self);
     
     with ImSchuesse[i] do
       begin
         Picture.Graphic.Assign(Strich.Graphic);
         Parent := Form1;           //oder welcher Parent auch immer!
       end;
   end;
  Anzahl:=1;

Und nicht vergessen, die Images im OnDestroy der Form wieder freizugeben

[Edit]
Immer das zu schnelle schreiben! Code bei Assign richtig gestellt.

[fabgo]

danke nochmal,

aber der gibt mir immer noch die fehlermeldung aus:

Delphi-Quellcode:

Picture.Graphic.Assign(Strich.Graphic); // Undefinierter Bezeichner Graphic (der in Klammern)

muss ich den oben noch irgendwie definieren?

danke fabgo

[Helmi]

von welchem typ ist strich?

[fabgo]

strich ist von TImage

[Helmi]

Delphi-Quellcode:

     with ImSchuesse[i] do
       begin
         Picture.Assign(Strich.Picture);
         Parent := Form1;           //oder welcher Parent auch immer!
       end;

[fabgo]

super, danke! hat alles geklappt!

gruß fabgo