hallo erstma,
mein problem ist folgendes :
ich will einen bestimmten ordner nach (unter-)verzeichnissen und Dateien durchsuchen, die sollen dann zur laufzeit in ein popupmenu hinzugefügt werden. bisher hab ich das so realisiert :
Delphi-Quellcode:
i:=0;
PopupMenu:=TPopupMenu.Create(Self);
pfad := 'D:\irgendeinordner\*';
iattr := fadirectory;
if FindFirst(pfad, iattr, sr) = 0 then
begin
repeat
if (sr.Attr and iAttr) = sr.Attr then
begin
with PopupMenu do
begin
inc(i);
if i > 2 then
begin
NeuesItem := TMenuItem.Create(PopupMenu); // Neuen Eintrag erzeugen
Items.Add(neuesitem);// dem Popup-Menü hinzufügen
NeuesItem.Tag:=i;
NeuesItem.Caption := sr.Name;
// onclick := PopupMenuItemsClick;
end;
end;
end;
until FindNext(sr) <> 0;
end;
FindClose(sr);
Form1.PopupMenu := Popupmenu;
end;
Jetzt krieg ich das aber nur so hin, dass der Inhalt des Verzeichnisses in das Popupmenu übertragen wird, allerdings nicht die Unterverzeichnisse. Ich weiss auch nicht, wie ich die Unterverzeichnisse dann in Untermenüs des Popupmenus bekommen soll.
Wäre für jede Hilfestellung dankbar !!
Gruß