Hallo,
also ich hab eine TreeView und ein TImage und wenn man jetzt im TreeView ein Item auswählt dann zeigt er das Bild im TImage an...
so ist mein code gerade:
Delphi-Quellcode:
procedure TForm2.ListChange(Sender: TObject; Node: TTreeNode);
var
LoadFile: String;
begin
if List.Selected.Parent <> nil then
begin
{Try loading the picture from the subdirectory Maps}
LoadFile := IncludeTrailingBackslash(extractfilepath(paramstr(0))) +
'Maps\Dungeon\' + List.Selected.Text + '.png';
Current.Picture.LoadFromFile(LoadFile);
Current.SetBounds((Holder.ClientWidth - Current.Width) div 2,
(Holder.ClientHeight - Current.Height) div 2, Current.Width,
Current.Height);
end
end;
so
Allerdings hab ich mehrere Verzeichnisse in \Maps , nicht nur Dungeon. wie lass ich die auch auslesen ? ich komm einfach nicht drauf ^^