Liste wie im Explorer

[Äfan]

Hi,

Weiß net ob ich das schonmal gefragt habe, egal:

Wie kann man so eine Liste wie im Explorer machen ? Also wo die liste in verschiedene spalten aufgeteilt ist wie Name, Datum, Größe.

Und wie kann man in die Liste einen eigenen Eintrag und Dateien mit den Einzelnen Infos einfügen ?

Beispiel oder Code wär sehr praktisch.

MFG

[alcaeus]

Hallo Äfan,

die Komponente heißt TListView. Auch in der DP gibts einiges zu dem Thema, einfach mal [dp="TListView"]suchen[/dp].

Greetz
alcaeus

[Äfan]

Hi,

Jo das sind ne Menge Beiträge... Beispiel wie man Beiträge in TListView hinzufügt ????

MFG

[Steve]

Hi,

TListView.Items bzw. TListItems hilft Dir weiter

F1 -> TListView -> Eigenschaften -> Items -> Beispiel
[oh]"Columns, Caption, Items, SubItems, Add (Beispiel)"[/oh]

Gruß
Stephan

[alcaeus]

Hallo Äfan,

steht zwar in der OH, aber egal:

Delphi-Quellcode:

with ListView1.Items.Add do //Element hinzufügen
begin
  Caption := 'Titel'; //Titel bzw. Inhalt der ersten Spalte setzen
  Subitems.Add('2. Spalte'); //Zusätzliche Spalten hinzufügen
  Subitems.Add('3. Spalte');
end;

Beachte: wenn du die Spaltenansicht aktivieren willst, muss ViewStyle auf "vsReport" gesetzt werden, sowie unter "Columns" die einzelnen Spalten definiert werden. Weiters muss auch "ShowColumnHeaders" auf True sein.

Greetz
alcaeus

[Äfan]

Danke, nur weiß ich jetzt immer noch nicht wie man einen Eintrag zur Laufzeit in der Liste erstellt.

Edit: Hätte eins höher gehört !

OK thx, so check ich das gleich !

Wie kann man jetzt dateien mit den infos (Name, Datum usw) hinzufügen ? Also ich meine, gibts da nen bestimmten trick ?

MFG

[Äfan]

Zitat:

Wie kann man jetzt dateien mit den infos (Name, Datum usw) hinzufügen ? Also ich meine, gibts da nen bestimmten trick ?

Also das mit den Dateiinfos bekomme ich nicht hin. Kann mir mal jemand sagen wie das geht: Also ich will Dateien in die liste hinzufügen, es sollen von der jeweiligen Datei die Infos wie Größe, Datum usw. in der jeweiligen Spalte angezeigt werden. Also wie im Explorer.

[Luckie]

Bei Delphi 7 müsste der ShellListview dabei sein.

[mwiesbau]

hallo,

mach es einfach mit findfirst findnext findclose.

vom ablauf her du durschsuchst den ausgewählten ordner nach allen dateien.

Delphi-Quellcode:

var
directory: string;
sr: tsearchrec;
begin

findfirst(directory+'\*.*',faanyfile,sr);
listbox1.Items.Add(search.Name);     // statt name kannstdu noch size time attr verwenden
  while findnext(sr)=0 do
    begin
    listbox1.Items.Add(sr.Name);
    end;

  findclose(sr)

hoffe du kommst nun weiter

[Dj_Base]

Zitat von Luckie:

Bei Delphi 7 müsste der ShellListview dabei sein.

Jo, warum nimmst du nicht einfach TShellListview? Die enstammt sozusagen direkt dem Explorer.
Sie greift nämlich auf die ShellAPI zu, die Funktionen des Windows-Explorers kapselt.
Du findest die Komponente, unter dem Register "Beispiele".

mfg,
Dj_Base