Последняя версия DataExpress 3 beta от 7 декабря 2019 года.
Изображение Скачать | Изображение Что нового?
См. также: Энциклопедия DX | Форум на develop-soft | Песочница
ИзображениеИзображениеИзображение

Плавная отмена

Все о том как сделать что-то с помощью скриптов.
archs8
Интересующийся
Сообщения: 174
Зарегистрирован: Вт сен 27, 2016 3:45 pm

Re: Плавная отмена

Сообщение archs8 » Пн мар 20, 2017 2:23 pm

Подскажите пожалуйста, а как выключить родные кнопки Ок и Отмена

jurist23rus
Эксперт
Сообщения: 2664
Зарегистрирован: Пт сен 30, 2016 9:42 am
Откуда: Майкоп
Благодарил (а): 2 раза
Поблагодарили: 14 раз

Re: Плавная отмена

Сообщение jurist23rus » Пн мар 20, 2017 5:01 pm

выключить

что вы подразумеваете под этим? Убрать их с окна, сделать недоступными, сделать невидимыми, оставить визуально как есть, но чтобы они не выполняли никаких функций (т.е. по их нажатию ничего не происходило).
Как бы то ни было все скриптом :)
Destiny is a very convenient word for those who never take decisions.

archs8
Интересующийся
Сообщения: 174
Зарегистрирован: Вт сен 27, 2016 3:45 pm

Re: Плавная отмена

Сообщение archs8 » Пн мар 20, 2017 6:54 pm

Действительно , кнопки сами убрались с помощью скрипта, но после внедрения скрипта проблема возникла другая =(
Вложения
Стало.png
Стало
Стало.png (176.55 КБ) 1508 просмотров
Было.png
Было
Было.png (97.1 КБ) 1508 просмотров

neitri
Мастер скриптов
Сообщения: 539
Зарегистрирован: Пн фев 13, 2017 5:42 pm

Re: Плавная отмена

Сообщение neitri » Пн мар 20, 2017 7:15 pm

У Вас еще какие то ошибки есть. Красный шести угольник с восклицательным знаком в левом верхнем углу.
Помогли Тебе. Помоги проекту.
Реквизиты помощи Вы можете найти в окне "О программе"

archs8
Интересующийся
Сообщения: 174
Зарегистрирован: Вт сен 27, 2016 3:45 pm

Re: Плавная отмена

Сообщение archs8 » Пн мар 20, 2017 7:27 pm

Там мелочь [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: Плавная отмена

Сообщение admin » Пн мар 20, 2017 8:36 pm

Попробуйте вариант от neiti с штатными кнопками: http://forum.mydataexpress.ru/download/file.php?id=678

archs8
Интересующийся
Сообщения: 174
Зарегистрирован: Вт сен 27, 2016 3:45 pm

Re: Плавная отмена

Сообщение archs8 » Пн мар 20, 2017 9:58 pm

Это то что нужно !!!!! Счастью нет придела =))))

:lol: Аааа рано радовался , пользователи оказались хитрее , половина закрывает через крестик (как быть?) и можно убрать подтверждение с "ОК", только на отмену
Вложения
2017-03-20_22-57-03.png
2017-03-20_22-57-03.png (111.58 КБ) 1321 просмотр

Аватара пользователя
admin
Разработчик
Сообщения: 4631
Зарегистрирован: Пн мар 14, 2016 11:32 am
Откуда: Ленинградская
Благодарил (а): 20 раз
Поблагодарили: 96 раз

Re: Плавная отмена

Сообщение admin » Пн мар 20, 2017 11:17 pm

Вставьте в модуль формы этот код:

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

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;

archs8
Интересующийся
Сообщения: 174
Зарегистрирован: Вт сен 27, 2016 3:45 pm

Re: Плавная отмена

Сообщение archs8 » Вт мар 21, 2017 10:46 pm

Сработала!!!! :D