Vcl.Dialogs.TFileOpenDialog.Execute immer false

[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.