[GELÖST] "External: SIGSEGV" bei Aufruf einer Array of TImage

[DeddyH]

Zitat:

Cat_Picture[i].Create(self);

Ändere das mal in
Cat_Picture[i] := TPicture.Create(self);

[Basetyp]

Zitat von DeddyH:

Zitat:

Cat_Picture[i].Create(self);

Ändere das mal in
Cat_Picture[i] := TPicture.Create(self);

Gut. Danke, das funktioniert. Ich hab es allerdings so gemacht wie mkinzler es gesagt hat, also mit TImage anstatt TPicture. Komischerweise scheint er da aber keine Bitmaps zu unterstützen
Aber .png tuts auch für meine Zwecke.

Jetzt hab ich allerdings noch ein Problem.
Er zeigt das Bild nicht an. Ich hab den Quelltext mal so aufgebaut, dass eigentlich nirgends der Fehler liegen kann, außer dass irgendein Befehl fehlt um das Bild auch anzuzeigen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  Setlength(Cat_Picture,3);
  For i := Low(Cat_Picture) to High(Cat_Picture) do
  begin
    Cat_Picture[i] := TImage.Create(self);
    Cat_Picture[i].Picture.LoadfromFile('Ball.png');
    Cat_Picture[i].Height:= 300;
    Cat_Picture[i].Width:= 300;
    Cat_Picture[i].Left:=0;
    Cat_Picture[i].Top:= 0;
    Cat_Picture[i].Visible:= True;
    Cat_Picture[i].Show;
    Cat_Picture[i].Stretch:= True;
  end;
  Application.ProcessMessages;
end;

Was übersehe ich hier?

[Basetyp]

Okay, ich hab mich Schlau gemacht, es fehlte Cat_Picture[i].Parent := Form1; .
Damit wird das Bild auch einem Formular zugeteilt, was ich völlig übersehen hatte.

Dankeschön an euch die mir geholfen haben!