Directoy-Dialog ?

[Nisbo]

Moin Moin

ich bin gerade auf der Suche nach einer Art Directory-Dialog
Ich bin der Meinung sowas schon mal gesehen zu haben, nur wo weiß ich nicht (jedenfalls nicht unter Dialoge ;))

Was ich vorhabe ist mittels diesem Dialog eine Verzeichnis auszuwählen in dem dann Daten gespeichert werden, also nur das Verzeichnis mit dem Dialog auswählen

Ach ja habe Delphi 5 Standard

[Matze]

Delphi-Quellcode:

uses FileCtrl;

  SelectDirectory('Wählen Sie den Ordner mit Ihren Bildern aus', '', Dir);

"Dir" ist eine Stringvariable, die den Pfad des ordners enthält.



Nachtrag: Ob das unter Delphi 5 geht, weiß ich leider nicht.

[Luckie]

BrowsForFolder.

[chrisw]

SaveDialog !

[Steve]

Hi,

z.B. gibts da SHBrowseForFolder, auch in der DP findest Du dazu viel: SHBrowseForFolder :)

Gruß
Stephan :dance:

[Matze]

Zitat:

Zitat von chrisw

SaveDialog !

Für Ordner ist der aber nicht sonderlich gut geeignet.

[Nisbo]

SelectDirectory ist schon mal ganz gut, nur kann man da keine Verzeichnisse erstellen :(
OpenDialog, wie soll ich denn da ein verzeichnis auswählen können ?

mit SHBrowseForFolder komme ich irgendwie nicht so richtig klar :(

[Luckie]

Zitat:

Zitat von Nisbo

mit SHBrowseForFolder komme ich irgendwie nicht so richtig klar :(

Schön. Und jetzt?

Hier habe ich das mal in eine Klasse gpackt: http://www.luckie-online.de/Delphi/Sonstiges/

[Christian S.]

Hallo!

Hier findest Du wohl das, was Du brauchst.

MfG
Christian

//Edit:

Zitat:

Zitat von Luckie

Hier habe ich das mal in eine Klasse gpackt: http://www.luckie-online.de/Delphi/Sonstiges/

Naja, ein paar mehr Leute waren schon beteiligt ;-)

[Nisbo]

@ Luckie

ok etwas genauer, habe den Tipp von hier versucht:
http://www.delphipraxis.net/internal...?p=51569#51569

nur dann bekomme ich den Hinweis das OpenDialog nicht bekannt ist
das muß ich vermutlich oben noch irgendwo bekanntgeben nur da fehlt mir jetzt die info wie das geht

gerade das ist ab und zu mal das problem bei anfängern, man sucht findet code, aber mit dem code könen anfänger leider nicht immer was anfangen weil einige Infos fehlen :(

Zitat:

Hier habe ich das mal in eine Klasse gpackt: http://www.luckie-online.de/Delphi/Sonstiges/

mmm Klasse kenne ich, war ich ja mal in der Schule drinn :D ;)
nur der link geht in ein verzeichnis

ach menno, ich glaub ich geh erstmal eine rauchen vielleicht wirds dann etwas klarer :D

EDIT: wegen der function, man muß die also über dem aufruf schreiben, in PHP war das egal, naja wieder dazugelernt, nur macht
http://www.delphipraxis.net/internal...?p=51569#51569 leider auch nicht das was ich möchte sondern auch nur selectdirectory wie es ausschaut

[MathiasSimmack]

Zitat:

Zitat von Christian S.

Zitat:

Zitat von Luckie

Hier habe ich das mal in eine Klasse gpackt: http://www.luckie-online.de/Delphi/Sonstiges/

Naja, ein paar mehr Leute waren schon beteiligt ;-)

Woll´n wir den Typen verklagen? :mrgreen:


@Nisbo: http://www.luckie-online.de/Delphi/S...rFolderCls.pas

[Luckie]

Zitat:

Zitat von Christian S.

Zitat:

Zitat von Luckie

Hier habe ich das mal in eine Klasse gpackt: http://www.luckie-online.de/Delphi/Sonstiges/

Naja, ein paar mehr Leute waren schon beteiligt ;-)

Nun ja, aber ich war auch beteiligt und das ursprüngliche Copyright Vermerk steht auch im Code:

Zitat:

Delphi-Quellcode:

// TFolderBrowser-Klasse
// Copyright (c) 2003/2004 Delphi-Forum
// Tino, Popov, "Peter Lustig" (PL), Luckie, Aton, Mathias Simmack (msi)

[MathiasSimmack]

Viel war´s nicht. :mrgreen:

Code:

[color=green]// -- Revision history ---------------------------------------------------------
//
//   * ursprüngliche Version von PL (s. Link #3)
[b]//   * Fehlerkorrekturen von Luckie
//       - Result bei Callback ergänzt
//       - Properties als private deklariert
//       - Bugs in "Execute"-Methode behoben[/b]
//   * Dateifilter in Callback-Funktion
//       - Idee (Aton)
//       - globale Stringvariable (msi)
//       - TFolderBrowser-Klasse (PL)
//   * Unterstützung für mehrere Filter ergänzt (msi)
//   * Unterstützung für verschiedene Root-Ordner (msi)
//   * Änderungen bei den Properties (msi)
//       - "SelFolder" in "SelectedItem" umbenannt
//       - "FNewFolder" als "NewFolderButton" verfügbar
//       - "FShowFiles" als "ShowFiles" verfügbar
//       - "FNoTT" als "NoTargetTranslation" verfügbar (XP-Flag)
//   * Funktion zum Ermitteln von Verknüpfungszielen ergänzt (msi)
//       - Ergänzung, um Umgebungsvariablen umzuwandeln
//   * "InitFolder" (s. Create) umbenannt in "PreSelectedFolder" (PL)
//
// -----------------------------------------------------------------------------[/color]

:zwinker: