Delphi-Quellcode:
TMyShellTreeView = class(TShellTreeView)
private
FMyListView: TMyListView;
protected
function CanChange(Node: TTreeNode): Boolean; override;
published
property WMyListView: TMyListView read FMyListView write FMyListView;
end;
Delphi-Quellcode:
function TMyShellTreeView.CanChange(Node: TTreeNode): Boolean;
var
Fldr: TShellFolder;
begin
Result := inherited CanChange(Node);
if Result and Assigned(Node) then
begin
if Assigned(FMyListView) then
Fldr := TShellFolder(Node.Data);
FMyListView.TreeUpdate;//(Fldr.AbsoluteID); // ****
end;
end;
**** Habe mal den Parameter überall entfernt, um den Fehler in der PIDL auszuschließen.
-> Immer noch ein Zugriffsfehler..