TCustomShellTreeView.GetPath vom Linker entfernt

[Gina]

Hi,

ich bin auch davon ausgegangen, dass er für das Setzen der Property Path GetPath aufruft:
property Path: string read GetPath write SetPath; Selbst wenn ich eine eigene Funktion getPath schreibe und aufrufe entfernt er sie und ich verstehe einfach nicht warum... ich habe nur gelesen, dass bei D6 Path nicht funktioniert und wollte das nun ergründen und habe gehofft, dass ich dem Abhilfe schaffen kann.

Ich habe erstmal notweise eine ziemlich umständliche Prozedur geschrieben, um den gleichen Effekt zu bekommen, aber die ist mir zu unflexibel. Was besseres ist mir bisher leider nicht eingefallen :/

Delphi-Quellcode:

     for i := 0 to (ShellTreeView1.Items.Count-1) do begin
       if ShellTreeView1.Folders[i].PathName = LWD then begin   //wechselt von Arbeitsplatz nach D:\
          ShellTreeView1.Items[i].Selected := true;
          ShellTreeView1.Selected.Expand(false);
          for j := 0 to (ShellTreeView1.Items.Count-1) do begin
            if ShellTreeView1.Folders[j].PathName = Daten then begin  //wechselt von D:\ nach D:\daten\
               ShellTreeView1.Items[j].Selected := true;
               ShellTreeView1.Selected.Expand(false);
               ShellTreeView1.Items[j].Focused := true;
               break;
            end;
          end;
       end;
     end;

Falls jemand eine Idee hat, was ich noch tun könnte, würde ich mich riesig freuen.

Tausend Dank, Gina.