Vcl.Dialogs.TFileOpenDialog.Execute immer false

[yymsc]

Vielen Dank schon mal für Eure Unterstützung
Also an der Variable 'name' lag es definitv nicht, der Originalcode sah so aus und ich hatte das nur etwas umgeschrieben:

Code:

with TFileOpenDialog.Create(self) do
  try
    Options := [fdoPickFolders,fdoPathMustExist];
    if Execute = true
      then DirectoryEdit.Text := Filename;
  finally
    Free;
  end;

Ich möchte also eigentlich ein Verzeichnis wählen, aber egal welches Verzeichnis ich auswähle Execute liefert immer false.

Was mich halt irritiert ist diese Aussage in der Doku 'Im Allgemeinen gibt Execute true zurück, wenn der Benutzer eine Auswahl trifft...' Es scheint wohl bei mir - warum auch immer - nun so zu sein dass es eben nicht true zurückliefert und der Filename auch nicht gesetzt wird.

[DeddyH]

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
  lDialog: TFileOpenDialog;
begin
  lDialog := TFileOpenDialog.Create(nil);
  try
    lDialog.Options := [fdoPickFolders,fdoPathMustExist];
    if lDialog.Execute then
      // lblTest ist einfach nur ein Label auf dem Formular
      lblTest.Caption := lDialog.FileName;
  finally
    lDialog.Free;
  end;
end;

Ohne with und Vergleich auf true funktioniert das so bei mir.

[Bernhard Geyer]

fdoPickFolders und Auswahl einer Datei?????

[ConnorMcLeod]

Zitat von yymsc:

Code:

with TFileOpenDialog.Create(self) do
  try
    Options := [fdoPickFolders,fdoPathMustExist];
    if Execute = true
      then DirectoryEdit.Text := Filename;
  finally
    Free;
  end;

Mach mal bei "Execute" und "Filename" ein [F7] und schau nach, was da wirklich exekutiert wird. Ohne "with" wäre es übersichtlicher, deswegen ist "with" in 99% der Fälle ein NoGo.
So, wie DeddyH es schreibt...

[himitsu]

Gründe für die Nichtanzeige dieses Dialogs:

* ungültiger InitialFolder
* ungültiger vordefinierter FileName
* alte CommonAPI benutzt, welche diesen Dialog noch nicht kennt, da kein Manifest im Projekt oder Laufzeit-Themes im Manifest deaktiviert
* Styles im Windows deaktivert (bis Win10 ging das noch und Einige fanden z.B. in RDP-Servern den alten Win2k-Style zu geil)
* altes Windows, was diese API noch garnicht kennt

Wenn er nicht angezeigt werden kann, dann ist es so, als wenn jemand auf Abbrechen bzw. [x] gedrückt hätte.

[yymsc]

Die Dialog wird angezeigt, nur wenn ich ein Verzeichnis auswähle und dann auf 'Ordner auswählen' klicke bekomme ich eben false zurück und Dialog.Filename ist leer.
Auch mit dieser Variante ohne 'with':

Code:

  Dialog := TFileOpenDialog.Create(self);
  try
    Dialog.DefaultFolder := 'c:\temp';
    Dialog.Options := [fdoPickFolders,fdoPathMustExist];
    if Dialog.Execute = true
      then DirectoryEdit.Text := Dialog.Filename;
  finally
    FreeAndNil(Dialog);
  end;

[haentschman]

Zitat:

auch wenn ich im Dialog eine Datei auswähle

Delphi-Quellcode:

Dialog := TFileOpenDialog.Create(self);
  try
    Dialog.DefaultFolder := 'c:\temp';
    //Dialog.Options := [fdoPickFolders,fdoPathMustExist]; // du willst eine Datei auswählen, aber nicht nur den Ordner?
    if Dialog.Execute then 
      DirectoryEdit.Text := Dialog.Filename;
  finally
    FreeAndNil(Dialog);
  end;

...was ist hiermit?

[Uwe Raabe]

Zitat von yymsc:

Die Dialog wird angezeigt, nur wenn ich ein Verzeichnis auswähle und dann auf 'Ordner auswählen' klicke bekomme ich eben false zurück und Dialog.Filename ist leer.

Funktioniert hier einwandfrei.