Скачать: CL | DM;

Формирование Меню по списку файлов и папок   Найти похожие ветки 

← →
DelphiN! ©   (2004-09-08 08:51) [0]

Не у кого случайно нет процедуры для динамического формированнию меню со списком файлов и папок по заданному пути(как в Пуске)

Например указал процедуре путь к папке "Программы" Windows-a, и она сформировала popmenu следующего вида:

Main -> Программы ->
                   Стандартные -> ...
                   Программа.exe
                   Программа2.exe

Заранее благодарен

---

← →
TUser ©   (2004-09-08 09:10) [1]

FindFirst, FindNext
TMenuItem.Create

---

← →
Fredy314 ©   (2004-09-08 09:22) [2]

Я когдато делал такое, но исходники не сохранились.

Там от заданого каталога рекурсивно вызываеш процедурку типа етой

Procedure SubDirMenu(dir:String;UpM:TMenuItem);
{fRec;M;}
Begin
FindFirst(dir+"*.*",faAnyFile,fRec)
While {} do
Begin
 M:=TMenuItem.Create;
 M.Name:=FRec.FileName;{и тд. и тп.}
 if (fRec.attr and faDir)Then
If (FRec.FileName<>".")and(FRec.FileName<>"..") Then
                              SubDirMenu(dir+FRec.FileName+"\",M);
 FindNext(FRec);
End;

end;

В нужном тебе месте вызываеш
   MainMenu1.Items.Crear;
   SubDirMenu(Dir,MainMenu1.Items);
где MainMenu1 пустой заранее созданый компонент

НОгами не бейте ето только набросок по памяти.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c