Thema
:
[GELÖST] "External: SIGSEGV" bei Aufruf einer Array of TImage
Einzelnen Beitrag anzeigen
mkinzler
(Moderator)
Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
Delphi 11 Alexandria
#
3
AW: "External: SIGSEGV" bei Aufruf einer Array of TImage
13. Jun 2012, 10:58
zusammenfalten
·
markieren
Delphi-Quellcode:
var
i: Integer;
begin
Randomize;
Doublebuffered:= True;
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('
NYAN.bmp
');
Cat_Picture[i].Height:= VPic_Height;
Cat_Picture[i].Width:= VPic_Width;
Cat_Picture[i].Left:= - Random(10) - Cat_Picture[i].Width;
Cat_Picture[i].Top:= 0;
Cat_Picture[i].Visible:= True;
Cat_Picture[i].Show;
end
;
Markus Kinzler
Zitat
mkinzler
Öffentliches Profil ansehen
Mehr Beiträge von mkinzler finden