ShellTreeView - Ordner selektieren

[Tassadar2k3]

Kann es sein das bei Root noch der Name des ShellTreeViews vorkommt? Sprich:

Delphi-Quellcode:

pfad:= ExtractFilePath(ParamStr(0)) + 'pics'; 
strvDirectory.Root:= pfad 
Path := IncludeTrailingPathDelimiter([b]ShellTreeView.Root[/b]) + 'pics'; 
strvDirectory.SetFocus;

Wenn ich es nämlich so machen würde, wie du es geschrieben hattest würde ich wieder den folgenden Fehler bekommen:

Zitat:

Undeclared identifier: 'Root'

Wenn ich das 'Root' durch 'ShellTreeView.Root' ersetze bekomme ich immer noch nen Fehler:

Zitat:

Cannot focus a disabled or invisible window

Ich versteh das nicht ... Ich meine, dass kann doch wahrlich nicht so schwer sein da ne einfache Auswahl zu machen, oder?

[hsbc]

Hallo,

vielleicht so:

ShellTreeView1.Path := IncludeTrailingPathDelimiter(Dein_Verzeichnis);
ShellTreeView1.Selected.MakeVisible;

mfg
Herbert

[Tassadar2k3]

Klappt auch nicht ... Er überschreibt den Path ja auch nicht, d.h. es steht immer noch der Pfad zum Desktop drin.
Ich habe jetzt einfach mal versucht nen Ordner aufem Desktop zu selektieren, was aber auch nicht klappt. :wall:

Werd mal noch nen bischen rumprobieren ... :coder2:

[Die Muhkuh]

Hi,

schau mal bitte, ob das angehängte funktioniert.

Einfach auf Button1 klicken, danach wird das, was im Edit oben steht, ausgewählt (zu Testzwecken mit C:\Windows vorbelegt) und zu guter letzt kommt eine Messagebox mit dem ShellTreeView.Path.

[smallsmoker]

ja klappt :)

€: aber ist es gewollt das dateien nicht angezeigt werden ? (dadurch kann man manche ordner expanden in denen "nix" ausser dateien drinne ist (die ja ausgeblendet werden)

mfg smallsmoker

[Tassadar2k3]

Zitat:

Zitat von Die Muhkuh

Hi,

schau mal bitte, ob das angehängte funktioniert.

Super - das funzt! :thumb:

Darf man fragen, wie du das nun bewerkstelligt hast?

[Die Muhkuh]

Im Endeffekt ist es nur das:

Delphi-Quellcode:

  stv.Path := edit1.Text;
  stv.SetFocus;
  ShowMessage(stv.Path);

stv ist hierbei ein TShellTreeView.

[Nixsager]

Ich habe eine Zusatzfrage.

Wenn man ein Berzeichnis angibt, kann es sein das das ausgewählte Verzeichnis nicht in dem sichbare Bereich angzeigt wird.

Wie lässt sich das Verzeichnis anzeigen.

Ich habe mit

Delphi-Quellcode:

ShellTreeView.AlphaSort(False)

gemacht, gibt es eine bessere Möglichkeit?