entweder zu speicherst zu jedem Item das Verzeichnis in .Data
oder du gehst die EternItems bis zum Rootverzeichnis zurück und setzt Name+Verzeichnis zusammen
[add]
PS: in Node steht der selektierte Node drin
Delphi-Quellcode:
procedure TForm2.ListChange(Sender: TObject; Node: TTreeNode);
var
LoadFile: String;
begin
if Node = nil then Exit;
LoadFile := '';
while Node <> nil do
begin
if LoadFile = '' then
LoadFile := Node.Text
else
LoadFile := Node.Text + '\' + LoadFile;
Node := Node.Parent;
end;
Current.Picture.LoadFromFile(IncludeTrailingBackslash(extractfilepath(paramstr(0)))
+ 'Maps\' + LoadFile);
Current.SetBounds((Holder.ClientWidth - Current.Width) div 2,
(Holder.ClientHeight - Current.Height) div 2, Current.Width,
Current.Height);
end;