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

[archs8]

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

[jurist23rus]

выключить

что вы подразумеваете под этим? Убрать их с окна, сделать недоступными, сделать невидимыми, оставить визуально как есть, но чтобы они не выполняли никаких функций (т.е. по их нажатию ничего не происходило).
Как бы то ни было все скриптом

[archs8]

Действительно , кнопки сами убрались с помощью скрипта, но после внедрения скрипта проблема возникла другая =(

[neitri]

У Вас еще какие то ошибки есть. Красный шести угольник с восклицательным знаком в левом верхнем углу.

[archs8]

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

[admin]

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

[archs8]

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

Аааа рано радовался , пользователи оказались хитрее , половина закрывает через крестик (как быть?) и можно убрать подтверждение с "ОК", только на отмену

[admin]

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

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

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]

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