Einzelnen Beitrag anzeigen

Zackebarsch

Registriert seit: 25. Nov 2003
7 Beiträge
 
#3

Re: Sucheergebnisse zur Laufzeit in Popupmenu übertragen

  Alt 26. Nov 2003, 17:42
WOW funktionier super danke !
wie kann ich jetzt noch zusätlich die dateien anzeigen ?
meiner erfahrung nach zeigt er bei faanyfile nur noch dateien na und keine verzeichnisse mehr, genauso wie bei fadirectory + faanyfile ... ?!?

vielen dank scp !

edit : hab jetzt einfach noch ne procedure FilestoMenu dazugemacht, scheint zu funzen :
Delphi-Quellcode:
blabla ...

   DirTreeToMenu(pfad + '\' + sr.Name, NeuesItem); // Nach Unterordnern suchen
   FilesToMenu(pfad + '\' + sr.Name, NeuesItem);

blabla ...
Delphi-Quellcode:
 
procedure FilesToMenu(pfad : String; Parent : TMenuItem);
var
  i : integer;
  NeuesItem : TMenuItem;
  iattr : integer;
  sr : TSearchRec;
begin
  NeuesItem := TMenuItem.Create(Parent); // Neuen Seperator erzeugen
  Parent.Add(neuesitem);// dem Popup-Menü hinzufügen
  NeuesItem.Tag:=0;
  NeuesItem.Caption := '-';
   i:=0;
    iattr := faanyfile;
    if FindFirst(pfad + '\*.mp3', iattr, sr) = 0 then
       begin
       repeat
          if (sr.Attr and iAttr) = sr.Attr then
              begin
                  inc(i);
                  NeuesItem := TMenuItem.Create(Parent); // Neuen Eintrag erzeugen
                  Parent.Add(neuesitem);// dem Popup-Menü hinzufügen
                  NeuesItem.Caption := sr.Name;
             end;
      until FindNext(sr) <> 0;
      end;
  FindClose(sr);
  end;
  Mit Zitat antworten Zitat