Delphi 5 TOpenDialog 选项不起作用[关闭]

Question

begin
  opendialog := TFileOpenDialog.Create(this);
  opendialog.options := (ofAllowMultiSelect);

  // Display the open file dialog
  if not opendialog.Execute then
    begin
        ShowMessage('Open file was cancelled');
      path := '';
    end
  else
    begin
        for i := 0 to openpic.Files.Count-1 do
          ShowMessage(openpic.Files[i]);
      end;
  opendialog.free;

我看到的所有地方都说将选项设置为 opendialog.options := [ofAllowMultiSelect];我所在的平台不允许我使用 [] 但是当我使用 () 时没有错误。出于某种原因，这个选项对我永远不起作用。我觉得我已经尝试了我在网上搜索的所有内容，但我没有发现任何人遇到类似的问题。

这也很奇怪，有时我发现设置选项 (ofEnableSizing) 或类似选项 (ofHideReadOnly) 实际上会占用和工作 SOMETIMES (wierd) ，但 ofAllowMultiSelect 从来没有为我工作过，它是我唯一需要的。我尝试像其他平台一样做 opendialog.ofallowmultiselect := true ，但这个错误也出现了。

任何想法都会非常受欢迎。

Answer 1

当然不行。您必须使用[] 来创建集合！

OpenDialog.Options := [ofAllowMultiSelect];

如果由于某种奇怪的原因，您无法输入 [ 和 ]，您可以改用 (. 和 .)：

OpenDialog.Options := (.ofAllowMultiSelect.);

此外（但有点无关紧要），您应该始终用try..finally 括起这样的代码块：

OpenDialog := TFileOpenDialog.Create(nil); // or self -- there is no 'this'
try
  // Do stuff
finally
  OpenDialog.Free;
end;