Страница 1 из 2

Управление доступом в Компоненте "Файл"

Добавлено: Сб май 27, 2017 11:58 am
kaltsone
:?: В компоненте "Файл" имеются функции: "Открыть", "Загрузить файл", "Сохранить файл", "Очистить".
Через права доступа блокирую "Загрузить файл" и "Очистить", нужно еще заблокировать "Сохранить файл", что-бы пользователю было доступно только "Открыть".
Подскажите реализацию сего.

Re: Управление доступом в Компоненте "Файл"

Добавлено: Сб май 27, 2017 12:02 pm
YurAnt
Встроенной возможности нет. Только скрипт.

Re: Управление доступом в Компоненте "Файл"

Добавлено: Сб май 27, 2017 12:05 pm
kaltsone
Подскажите как в скрипте заблокировать "Загрузить файл", "Сохранить файл", "Очистить". :?:

Re: Управление доступом в Компоненте "Файл"

Добавлено: Сб май 27, 2017 12:25 pm
YurAnt
"Напишите" в смысле..? ;) Попробуем, как доберемся до компа...

Re: Управление доступом в Компоненте "Файл"

Добавлено: Сб май 27, 2017 12:28 pm
kaltsone
Где-то наверное здесь :?: TdxFile:
procedure Clear
procedure LoadFromFile
procedure SaveToFile

Re: Управление доступом в Компоненте "Файл"

Добавлено: Сб май 27, 2017 12:31 pm
kaltsone
YurAnt писал(а):"Напишите" в смысле..? ;) Попробуем, как доберемся до компа...


У меня пока "подскажите" в смысле "дайте попробовать". Может и хорошо, что Вы пока не у компа... Уже куда-то и сам лезу... :shock:

Re: Управление доступом в Компоненте "Файл"

Добавлено: Сб май 27, 2017 1:42 pm
YurAnt
dxFile.buttons кажется... и hide. Не помню...

Re: Управление доступом в Компоненте "Файл"

Добавлено: Сб май 27, 2017 2:32 pm
neitri

Код: Выделить всё

dxFile1.Button.Enabled:=false;

Re: Управление доступом в Компоненте "Файл"

Добавлено: Сб май 27, 2017 2:38 pm
kaltsone
neitri писал(а):

Код: Выделить всё

dxFile1.Button.Enabled:=false;

Если я правильно делал,то заблокировало всю кнопку и нет доступа к функции "Открыть".

Re: Управление доступом в Компоненте "Файл"

Добавлено: Сб май 27, 2017 3:39 pm
neitri
Да заблокирует всю кнопку.

В дереве объектов есть
Constants -> Popup menu items -> dxFile.Button
С контантами MI_FILE_OPEN MI_FILE_LOAD MI_FILE_SAVE MI_FILE_CLEAR
А где само меню не могу найти.
dxFile.PopupMenu nil
dxFile.Button.PopupMenu тоже nil