Noch ein Hinweis zum Code von Muetze:
Zitat:
Delphi-Quellcode:
Procedure TForm1.FormDestroy;
Var
lInfo : PPictureInfo;
Begin
While ( TreeView1.Items.Count > 0 ) Do
Begin
lInfo := TreeView1.Items[0].Data;
TreeView1.Items.[0].Delete;
Dispose(lInfo);
End;
End;
Jeder TreeView hat das Ereignis OnDeletion was aufgerufen wird wenn ein Knoten gelöscht wird. Das ist ein wunderbarer Ort um Dispose aufzurufen. Das sorgt 1. dafür das auch keine Leichen entstehen wenn zwischendurch mal ein Knoten gelöscht wird und man kann sich die Schleife im FormDestroy sparen.