Komponenten über Befehl erstellen

[rawsoul]

N'Abend zusammen!

Ich sitze zur Zeit an einem Game, welches Komplett über TImage visualisiert wird. In diesem Spiel sollen per Tastendruck neue Images gesetzt werden, immer das gleiche. Ich hatte es erst so gelöst, dass ich die maximale Anzahl von Images außerhalb des sichtbaren Bereiches gesetzt habe und dann über den Tastendruck erst auf die definierte Position gesetzt :?

Mein alter Informatiklehrer sagte, man könne Instanzen erzeugen... Ich habe es bereits mit create versucht, jedoch verstehe ich die Syntax nicht :oops:, und die Delphi Hilfe sagt mir, das Thema sei nicht vorhanden.

Kann mir wer entweder ein konkretes Beispiel für create() zeigen, oder möglicher Weise sogar eine komplett andere Idee vorschlagen? ;)

Liebe Grüße,
Frank.

[edit=SirThornberry]Schreibfehler im Titel korrigiert - Mfg, SirThornberry[/edit]

[Balu der Bär]

Delphi-Quellcode:

var
test: TImage;

....

test := TImage.Create(self);
test.parent := Form1;
test.top := 20;
test.left := 20;
test.picture := ...

Oder guck mal hier: http://www.delphipraxis.net/internal...ct.php?t=91839

[rawsoul]

Klingt sehr interessant und nachvollziehbar, aber .picture will meinen dateipfad nicht annehmen :(
Wie habe ich ihn denn zu deklarieren?

[Balu der Bär]

Du musst ein TPicture-Objekt übergeben. ;)

[DGL-luke]

Test.Picture.LoadFromFile könnte helfen.

[rawsoul]

Oh ja, das war's, danke :)

Trotz alledem, ich komme nicht weiter :( Sorry dass ich euer Forum mit solchen Fragen 'zumülle'...

Nächstes Problem: Angeblich sei die Parent des Images nicht initialisiert worden, zumindest schmiert mir das Programm beim compilen ab. EAccessViolation im Project1.exe sagt er mir...

[Balu der Bär]

Was hast du denn als Parent angegeben?

[rawsoul]

Wie in deinem Beispiel: Form1

[Balu der Bär]

Heißt dein Formular denn auch Form1? Ansonsten gib mal self an und guck was passiert.

[rawsoul]

Ja, es heißt Form1. Auch mit self als Parent bekomme ich den gleichen Fehler zurück.

Delphi-Quellcode:

procedure TForm1.keypressTIMERTimer(Sender: TObject);
begin
// helpscreen
  if getAsyncKeyState(vk_f1) < 0 then
  helpimage.visible:=true else
  helpimage.visible:=false;

// marker rechts
  if getasynckeystate(vk_right) < 0 then
    if markerimage.left=768 then markerimage.left:=0 else markerimage.left:=markerimage.left+32;

// marker links
  if getasynckeystate(vk_left) < 0 then
    if markerimage.left=0 then markerimage.left:=768 else markerimage.left:=markerimage.left-32;

// marker hoch
  if getasynckeystate(vk_up) < 0 then
    if markerimage.top=0 then markerimage.top:=448 else markerimage.top:=markerimage.top-32;

// marker runter
  if getasynckeystate(vk_down) < 0 then
    if markerimage.top=448 then markerimage.top:=0 else markerimage.top:=markerimage.top+32;

// cannon setzen
if getasynckeystate(vk_up) < 0 then
    cannon:=timage.create(self); //cannon ist eine globale variable
    cannon.parent:=self;
    cannon.top:=markerimage.top;
    cannon.left:=markerimage.left;
    cannon.picture.loadfromfile('gfx\decal3.bmp');
end;