Взаимодействие форм в Delphi: Пошаговое руководство по созданию модальных окон

Delphi , Программа и Интерфейс , Формы

В рамках данного руководства мы рассмотрим создание простого приложения на Delphi, которое демонстрирует два окна: основное и всплывающее. Основная цель – показать, как можно отключить функциональность основного окна при открытии всплывающего.

Основные понятия

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

Шаг 1: Создание всплывающего окна

Для начала создадим всплывающее окно, которое будет отображаться при нажатии на кнопку в основном окне.

procedure TMainForm.Button1Click(Sender: TObject);
var
  newForm: TNewForm;
begin
  newForm := TNewForm.Create(nil);
  try
    newForm.ShowModal;
  finally
    newForm.Free;
  end;
end;

Важно использовать ShowModal, чтобы заблокировать основное окно до закрытия всплывающего.

Шаг 2: Обработка результата модального окна

Модальные окна могут возвращать результаты, которые можно обработать в основном приложении.

procedure TMainForm.Button1Click(Sender: TObject);
var
  Result: TModalResult;
begin
  if not Assigned(newForm) then
    newForm := TNewForm.Create(nil);
  try
    Result := newForm.ShowModal;
    if IsPositiveResult(Result) then
      ShowMessage('Принято')
    else
      ShowMessage('Отменено');
  finally
    newForm.Free;
  end;
end;

Укажите свойства ModalResult для элементов управления на всплывающем окне, чтобы указать, какой результат возвращать при их активации.

Шаг 3: Примеры использования свойства ModalResult

object btnOK: TButton
  Caption = 'OK'
  ModalResult = mrOK
end
object btnCancel: TButton
  Caption = 'Отмена'
  ModalResult = mrCancel
end

В этом примере, при нажатии на кнопку OK, всплывающее окно будет закрыто с mrOK в качестве результата, что позволит основному приложению понять, что действие подтверждено.

Заключение

Использование модальных окон является стандартной практикой в Delphi для создания диалогов, которые требуют полного внимания пользователя. Приведенные примеры кода помогут вам начать работу с модальными окнами и понимание того, как они могут взаимодействовать с основным приложением.

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

Создание модальных окон в Delphi для блокировки основного приложения и взаимодействия с пользователем через всплывающие окна.

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

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

:: Главная :: Формы ::