如何控制delphi opendialog不能选文件夹

要在 Delphi 中控制 `TOpenDialog` 不能选择文件夹，你可以使用 `TOpenDialog.Options` 属性中的 `ofFileMustExist` 和 `ofAllowMultiSelect` 选项来限制只能选择文件而非文件夹。下面是示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
 OpenDialog: TOpenDialog;
begin
  OpenDialog := TOpenDialog.Create(Self);
 try
    OpenDialog.Options := [ofFileMustExist, ofAllowMultiSelect];
    OpenDialog.Execute then
    begin
      // 处理选择的文件
      ShowMessage('Selected file(s): ' + OpenDialog.Files.CommaText);
    end;
  finally
    OpenDialog.Free;
  end;
end;

在上面的示例中，我们创建了一个 `TOpenDialog` 对象，并将 `Options` 属性设置为 `[ofFileMustExist, ofAllowMultiSelect]`，这样用户只能选择现有的文件，而不能选择文件夹。

当用户选择文件后，你可以通过 `OpenDialog.Files` 属性来获取选择的文件列表。在示例中，我们使用 `ShowMessage` 来显示选择的文件名。

请注意，在使用完 `TOpenDialog` 后，需要调用 `Free` 方法来释放资源。