Also... Laut Debugger bleibt er in der ShellCtrls an folgender Stelle hängen:
Delphi-Quellcode:
procedure TCustomShellTreeView.Delete(Node: TTreeNode);
begin
if Assigned(Node.Data) then
begin
TShellFolder(Node.Data).Free;
Node.Data := nil;
end;
inherited Delete(Node);
end;
(*
procedure TCustomShellTreeView.NodeDeleted(Sender: TObject; Node: TTreeNode);
begin
if Assigned(Node.Data) then
begin
TShellFolder(Node.Data).Free;
Node.Data := nil;
end;
end;
(**)
Wie man sieht, gibt es da schon zwei Varianten im Quellcode... Aber jetzt bin ich einfach zu müde, um mir darüber noch Gedanken machen zu können. Bis morgen, schlaft schön...
Gina.