Последняя версия DataExpress 3 beta от 15 сентября 2020 года.

Изображение Скачать | Изображение Что нового?



Объявление:

Если вам понравилась программа и вы ее интенсивно используете - замолвите словечко о ней на вашем сайте (блоге, форуме, твитере, краской на подъезде, ютуб-канале и т.д.) с активной (по-возможности) ссылкой на сайт программы/форум. Тем самым вы можете внести небольшой вклад в seo-карму проекта в виде входящих ссылок.
Спасибо! Администрация :)


>> Обсудить <<

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

Все о том как сделать что-то с помощью скриптов.
archs8
Интересующийся
Сообщения: 204
Зарегистрирован: 27 сен 2016, 15:45
Благодарил (а): 1 раз

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

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

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

jurist23rus
Эксперт
Сообщения: 2707
Зарегистрирован: 30 сен 2016, 09:42
Откуда: Майкоп
Благодарил (а): 3 раза
Поблагодарили: 27 раз

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

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

выключить

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

archs8
Интересующийся
Сообщения: 204
Зарегистрирован: 27 сен 2016, 15:45
Благодарил (а): 1 раз

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

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

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

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

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

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

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

archs8
Интересующийся
Сообщения: 204
Зарегистрирован: 27 сен 2016, 15:45
Благодарил (а): 1 раз

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

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

Там мелочь [20.03.2017 19:26:21] Агентству_после_предоплаты: IIF -> Could not convert variant of type (Null) into type (Boolean)
Исправил

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

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

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

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

archs8
Интересующийся
Сообщения: 204
Зарегистрирован: 27 сен 2016, 15:45
Благодарил (а): 1 раз

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

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

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

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

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

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

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

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

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

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
Интересующийся
Сообщения: 204
Зарегистрирован: 27 сен 2016, 15:45
Благодарил (а): 1 раз

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

Сообщение archs8 » 21 мар 2017, 22:46

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


Вернуться в «Общие вопросы.»