

См. также: Энциклопедия DX | Форум на develop-soft | Песочница



Плавная отмена
-
- Эксперт
- Сообщения: 2664
- Зарегистрирован: Пт сен 30, 2016 9:42 am
- Откуда: Майкоп
- Благодарил (а): 2 раза
- Поблагодарили: 14 раз
Re: Плавная отмена
выключить
что вы подразумеваете под этим? Убрать их с окна, сделать недоступными, сделать невидимыми, оставить визуально как есть, но чтобы они не выполняли никаких функций (т.е. по их нажатию ничего не происходило).
Как бы то ни было все скриптом

Destiny is a very convenient word for those who never take decisions.
Re: Плавная отмена
Действительно , кнопки сами убрались с помощью скрипта, но после внедрения скрипта проблема возникла другая =(
- Вложения
-
- Стало
- Стало.png (176.55 КБ) 1508 просмотров
-
- Было
- Было.png (97.1 КБ) 1508 просмотров
Re: Плавная отмена
У Вас еще какие то ошибки есть. Красный шести угольник с восклицательным знаком в левом верхнем углу.
Помогли Тебе. Помоги проекту.
Реквизиты помощи Вы можете найти в окне "О программе"
Реквизиты помощи Вы можете найти в окне "О программе"
Re: Плавная отмена
Там мелочь [20.03.2017 19:26:21] Агентству_после_предоплаты: IIF -> Could not convert variant of type (Null) into type (Boolean)
Исправил
Исправил
- admin
- Разработчик
- Сообщения: 4631
- Зарегистрирован: Пн мар 14, 2016 11:32 am
- Откуда: Ленинградская
- Благодарил (а): 20 раз
- Поблагодарили: 96 раз
Re: Плавная отмена
Попробуйте вариант от neiti с штатными кнопками: http://forum.mydataexpress.ru/download/file.php?id=678
Re: Плавная отмена
Это то что нужно !!!!! Счастью нет придела =))))
Аааа рано радовался , пользователи оказались хитрее , половина закрывает через крестик (как быть?) и можно убрать подтверждение с "ОК", только на отмену

- Вложения
-
- 2017-03-20_22-57-03.png (111.58 КБ) 1321 просмотр
- admin
- Разработчик
- Сообщения: 4631
- Зарегистрирован: Пн мар 14, 2016 11:32 am
- Откуда: Ленинградская
- Благодарил (а): 20 раз
- Поблагодарили: 96 раз
Re: Плавная отмена
Вставьте в модуль формы этот код:
Код: Выделить всё
procedure CloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if TForm(Sender).ModalResult <> mrOk then
CanClose := MessageDlg('Отмена сохранения', 'Закрыть форму? Запись НЕ сохраниться',
mtConfirmation, [mbYes, mbNo]) = mrYes;
end;
procedure Form_Create;
begin
if Self.EditWindow <> nil then
Self.EditWindow.OnCloseQuery := @CloseQuery;
end;