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?