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