ShowReadOnly: Boolean;
Свойство ShowReadOnly определяет признак отображения в диалоге флага, используемого для выбора режима открытия файла.
По умолчанию свойству установлено значение False, при этом флаг не отображается. Если свойству установить значение True, то при инициализации диалога, в нем будет присутствовать флаг "Только чтение". Данный флаг управляет значением свойства ReadOnlyChecked и в дальнейшем может использоваться для проверки режима открытия файла.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "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", в зависимости от состояния флага "Только чтение", данный файл будет открыт только на чтение, либо с возможностью записи и запретом доступа к данному файлу из других приложений.
См. также: