Кнопка перейти на каталог выше в делфи
Мне нужно реализовать кнопку, при нажатии на которую я бы смог подняться на один каталог выше. Я использую компоненты TListView и TImageList.
Ответы (1 шт):
Автор решения: Igor
→ Ссылка
procedure TForm1.Button1Click(Sender: TObject);
begin
currentFolder := ExtractFileDir(currentFolder);
ShowCurrentFolderContent;
end;