Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
14. Aug 2012
Kleine Ergänzung:
function GetShellNodePath(Node: TTreeNode): string;
var Fldr : TShellFolder;
begin
Result := '';
if Assigned(Node) then
begin
Fldr := TShellFolder(Node.Data);
if Assigned(Fldr) and DirectoryExists(Fldr.PathName) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
12. Aug 2012
Es geht doch nicht um FindFirst/FindNext, sondern um die (gefilterte) Darstellung im TreeView.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
12. Aug 2012
Ich benutze die ShellTreeview nie, aber die dürfte ja von TTreeview abgeleitet sein. Dann könnte man doch (rekursiv) über die Nodes iterieren (GetNext, GetNextChild) und den Text auslesen, oder irre ich mich da?