Hallo Alle!
In einem Projekt erzeuge ich auf einer Form ganz viele Images. Nun möchte ich alle auf einmal löschen. Ich lösche sie mit diesem Code. Das Problem ist, wenn ich jetzt alle Images gelöscht habe und wieder neue erzeugen möchte, hängt sich das Programm auf. Erst bei einem Neustart des Programms klappt es wieder. Was mache ich da falsch?
Delphi-Quellcode:
var temp : TComponent;
Halter : Integer;
begin
for Halter := ComponentCount - 1 downto 0 do
begin
Temp := Components[Halter];
if (Temp is TImage) then
begin
Temp.Free ;
end;
end;
und so erzeuge ich die Images:
Delphi-Quellcode:
Var Mein_Bild : array [0 .. 100] of TImage;
........
Var
A: Integer;
begin
for A := 0 to FileListBox1.Items.Count - 1 do
begin
Nr := Nr + 1;
Mein_Bild[Nr] := TImage.Create(Form1);
With Mein_Bild[Nr] do
begin
Parent := Form1;
Left := Links;
Top := Oben;
Tag := Nr;
ShowHint := True;
Hint := 'Nr.: ' + IntToStr(Nr);
Width := 340;
Height := 240;
Stretch := True;
Proportional := True;
end;
end;
Gruß
Heike