Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi opendialog mit fixem pfad? (https://www.delphipraxis.net/2334-opendialog-mit-fixem-pfad.html)

Blizzard 18. Jan 2003 17:56


opendialog mit fixem pfad?
 
Hi,
wie kann ich vehindern, das man bei einem opendialog den pfad ändern kann. bzw noch besser wäres es wenn man nur in die unterordern der initialdir wechseln könnte aber die initialdir nicht "nach oben" verlassen könnte.
Kennt da jemand ne möglichkeit wie ich das erreichen könnte??

MfG
Blizzard

ShakerWD 18. Jan 2003 18:32

nur ne idee....
 
hi,
also meine erste idee wäre ein eigenes formular dafür zu erstellen.
in dem formular kannst du ja dein gewünschtes verzeichniss "initialdir" z.b in einem TListView darstellen. ist denke ich mal die einfachste möglichkeit wenn du nicht willst dass die verzeichnisse gewechslet werden können. mir fällt sonst dazu mal nichts ein, zumal bei dem opendialog ja links noch der arbeitsplatz dargestellt wird in dem man ja auch noch wechseln kann.....(eigene dateien, arbeitsplatz usw....)
aber nur mal so ne idee, kein masterplan... ;)

so long

Daniel

Alexander 18. Jan 2003 18:57

kuck dir mal das Event "OnFolderEvent" der OpenDialog-Komponente an.
Damit sollte sich das machen lssen können

Blizzard 18. Jan 2003 19:12

@ shakerWD: das hatte ich mir auch schon überlegt. aber ich wollte eigentlich ohne zusätzliche form und so auskommen und vorallem das aussehen des opendialog beibehalten

@alexander: die hab ich mir schon angeschaut allerdings gibt es da nix den pfadwechsel zu unterbinden und ich hab auch keine möglichkeit gefunden den pfad erneut zu setzten. initial dir beachtet er da nicht mehr. und sowas wie path oder so als eigenschaft hab ich ned gefunden

Blizzard

illegal eagle 20. Jan 2003 15:35

Als Notlösung geht ja auch 'ne Schleife:

Code:
Var    FixedDir : String = 'C:\';
Code:
While True do If OpenDialog.Execute then Begin
        If (ExtractFilePath(OpenDialog.FileName) = FixedDir) then Break;
        ShowMessage('Nur Dateien aus dem Verzeichnis ' + FixedDir + ' sind erlaubt.');
End;
'FixedDir' kann man ja noch bei Programmstart an Windows-Verzeichnis etc. anpassen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:17 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz