Einzelnen Beitrag anzeigen

Simme

Registriert seit: 8. Jan 2010
31 Beiträge
 
Delphi 7 Personal
 
#1

Neues Image bei Laufzeit erstellen

  Alt 8. Jan 2010, 13:41
Hallo Leute.
Ich bin noch nicht besonders vertraut mit Delphi, ich habe das in der Schule seit ca. 1 1/2 Jahren, weiß zwar etwas mehr, aber trotzdem viele Sachen noch nicht. Also geht bitte vorsichtig mit mir um!
Also, folgendes Problem: Ich möchte ein TImage bei Laufzeit erstellen, weil ich nicht weiß, wie viele ich brauchen werde. Dies soll bei einem Tastendruck geschehen. Das habe ich alles soweit hinbekommen, allerdings zeigt der mir, wenn ich das Programm am Laufen habe, nur ein weißes Bild aus, obwohl ich eigentlich per LoadFromFile ein Bild angegeben habe... Ich habe auch schon probiert, mit Assign die Eigenschaften eines anderen Bildes auf das hier zu übertragen, da bekomm ich aber im Programm dann eine Fehlermeldung... Complimierbar ist aber alles.
Hier der Code von dem Teil, den ich meine:
Delphi-Quellcode:
If ((GetAsyncKeyState(VK_NUMPAD0)) <> 0) Then
    begin
      bombesp1 := TImage.Create(Form1);
      with bombesp1 do
      begin
        Visible := true;
        Top := 64;
        Left := 200;
        Width := 49;
        Height:= 65;
        Name := 'Bombe_SP1';
        Parent := Form1;
        Picture.LoadFromFile('bombe.bmp');
      end;
      bombesp1.Left := Image1.Left;
      bombesp1.Top := Image1.Top;
      bombesp1.Visible := True;
      Delay(2000);
      bombesp1.Picture.LoadFromFile('bombe_explodiert.bmp');
    end;
Ich wäre echt dankbar für Hilfe!

Danke.

Simme
  Mit Zitat antworten Zitat