"Изменение стандартного поведения кнопки 'Отмена' в диалоге, вызываемом из основной формы в приложении на Delphi"

Delphi , Программа и Интерфейс , Модальные формы

Изменение стандартного поведения кнопки 'Отмена' в диалоге, вызываемом из основной формы в приложении на Delphi

В процессе разработки приложений на Delphi часто возникает необходимость создания собственных диалоговых окон для подтверждения тех или иных действий. В этом случае мы можем столкнуться с проблемой стандартного поведения кнопки "Отмена" в модальном диалоге, которая по умолчанию возвращает результат mrNo. Это может привести к неожиданным последствиям, когда пользователь нажимает клавишу Esc, ожидая отмены какого-либо действия, но вместо этого получает противоположный результат.

Давайте рассмотрим пример, когда из основной формы нашего приложения вызывается модальный диалог для подтверждения сохранения изменений в текущем файле. Мы хотим, чтобы нажатие клавиши Esc отменяло это действие, но по умолчанию это приведет к тому, что приложение закроется без сохранения изменений.

Чтобы изменить стандартное поведение кнопки "Отмена" в диалоге, мы можем воспользоваться свойствами кнопок в нашем диалоге. Для этого нужно установить значение свойства Cancel для кнопки "Нет" в FALSE, а для кнопки "Отмена" - в TRUE. Таким образом, нажатие клавиши Esc будет обрабатываться как нажатие кнопки "Отмена", а не "Нет".

Пример кода, иллюстрирующий это решение, приведен ниже:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    btnSave: TButton;
    btnCancel: TButton;
    btnNo: TButton;
    procedure btnSaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Устанавливаем свойства кнопок
  btnCancel.Cancel := True;
  btnNo.Cancel := False;
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
  // Вызываем модальный диалог для подтверждения сохранения изменений
  case ShowMessage('Сохранить изменения?', mtConfirmation, [mbYes, mbNo, mbCancel]) of
    mrYes:
      // Сохраняем изменения
      ;
    mrNo:
      // Не сохраняем изменения и закрываем приложение
      Application.Terminate;
    mrCancel:
      // Не сохраняем изменения и не закрываем приложение
      ;
  end;
end;

end.

В данном примере мы создаем форму с тремя кнопками: "Сохранить", "Отмена" и "Нет". В обработчике нажатия кнопки "Сохранить" вызывается модальный диалог для подтверждения сохранения изменений. При нажатии клавиши Esc будет обрабатываться как нажатие кнопки "Отмена", а не "Нет", благодаря установленным свойствам кнопок в методе FormCreate.

Таким образом, мы можем изменить стандартное поведение кнопки "Отмена" в диалоге, вызываемом из основной формы в приложении на Delphi, и сделать его более удобным для пользователя.

Создано по материалам из источника по ссылке.

В данном контексте рассматривается изменение стандартного поведения кнопки 'Отмена' в диалоге, вызываемом из основной формы в приложении на Delphi, для более удобного взаимодействия с пользователем.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Модальные формы ::