Zitat von
Die Muhkuh:
Führt Du beim Navigieren noch zusätzlichen Code aus?
Jein. Ich führe den Code unten aus. Aber ich habe auch schon daran gedacht, dass es eventzuell an meinem Code liegen könnte und hab ihn daher im Moment nur als Kommentar stehen. Die Fehler treten trotzdem auf.
Delphi-Quellcode:
procedure TForm1.ShellListView1DblClick(Sender: TObject);
begin
{ If (Shelllistview1.ItemIndex = -1) or not Shelllistview1.Items[Shelllistview1.ItemIndex].Selected
then exit;
If Shelllistview1.Folders[Shelllistview1.ItemIndex].IsFolder
then Shelltreeview1.Path := Shelllistview1.Folders[Shelllistview1.ItemIndex].PathName;
}
end;
//Edit
Hinzuzzufügen ist noch, dass die Fehler deutlich häöufiger auftreten, wenn ich in der Shelltreeview navigiere. Häufig wird auch noch mal ein Fehler beim Beenden des Programms nachgeschoben, wenn zur Laufzeit bereits einer auftrat.
//Edit2
Die VirtualShellTools-Komponente sieht ganz vielversprechend aus. Wenn ich keinen anderen Weg finde, werde ich die wohl verwenden. Danke für den Link