Ich möchte alle Bilder aus einer ImageList löschen. Also komplett leeren.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender : TObject);
var i : Integer;
begin
for i:= 0 to ImageList1.Count do
ImageList1.Delete(i);
end;
das wäre natürlich das logischste aber das funktioniert nicht die Bilder werden zwar gelöscht aber danach folgt eine Fehlermeldung.
Kann jeder mal ausprobiern.
Zutaten :
- 1 Imagelist mit Bildern drin
- 1 Button mit obigem Code
Ich habs schon mit ImageList1.Count-1 und +1 und von 1 bis ImageList1.Count (+1,-1) usw., aber es funktioniert alles nicht
