MultiSelect: Boolean;
Свойство MultiSelect определяет возможность множественного выбора файлов в диалоговом окне.
Если свойству MultiSelect установить значение True, то при использовании клавиш Shift или Ctrl можно отметить несколько файлов диалогового окна.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "Button1" и компонента FileOpenDialog с наименованием "FileOpenDialog1".
Sub Button1OnClick(Sender: Object; Args: IEventArgs);
Var
FileStr: IFileStream;
Begin
FileOpenDialog1.MultiSelect := False;
FileOpenDialog1.ShowReadOnly := True;
FileOpenDialog1.ReadOnlyChecked := True;
If FileOpenDialog1.Execute Then
If FileOpenDialog1.ReadOnlyChecked Then
FileStr := File.Open(FileOpenDialog1.FileName, FileOpenMode.Read, FileShare.DenyNone);
...
Else
FileStr := File.Open(FileOpenDialog1.FileName, FileOpenMode.ReadWrite, FileShare.Exclusive);
...
End If;
Dispose FileStr;
End If;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку будет инициализирован диалог открытия файла. При инициализации диалога в нем будет присутствовать флаг "Только чтение". Данный флаг будет отмечен. Будет доступен выбор только одного файла. При выборе файла и нажатия кнопки "OK", в зависимости от состояния флага "Только чтение", данный файл будет открыт только на чтение, либо с возможностью записи и запретом доступа к данному файлу из других приложений.
См. также: