Vcl.Dialogs.TFileOpenDialog.Execute immer false

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