Блокировка родительского окна формы в Delphi

Question

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

Пожалуйста, покажите простой код для этого примера.

Answer 1

Попробуйте:

procedure ShowModalForm()
var 
  newForm: TNewForm;
begin
  newForm := TNewForm.Create(nil);
  try
    newForm.ShowModal;
  finally
    newForm.Free;
  end;
end;

Answer 2

Другой способ создать его - вот так.

procedure TForm1.btnCreateFormClick(Sender: TObject);
var
   YourForm : TYourForm;
begin
  YourForm := TYourForm.Create(nil);
  try
    YourForm.ShowModal;
  finally
    YourForm.Free;
  end;
end;

Answer 3

Самый простой способ добиться этого - показать вашу форму модально. Вызовите ShowModal, чтобы отобразить форму, и основная форма не будет отключена и не сможет получить какой-либо ввод.

Answer 4

Вот некоторый шаблонный код, который демонстрирует модальное окно поведение в Delphi:

procedure TMain.Button1Click(Sender: TObject);
var
  Result: TModalResult;
begin
  { if Dialog is not in "auto-create forms" list - instantiate it }
  if not Assigned(Dialog) then
    Application.CreateForm(TDialog, Dialog);

  { MODAL forms are blocking input on per application level }
  { so the following call blocks until Dialog form closes }
  Result := Dialog.ShowModal();

  if IsPositiveResult(Result) then
  begin
    { handle if user responds with OK, Yes, etc }
    ShowMessage('Accepted');
  end
  else
  begin
    { or handle Close, Cancel, No, ... }
    ShowMessage('Cancelled');
  end;
end;

Отдельные результаты диалога были достигнуты путем назначения ModalResult свойство кнопки control в Инспекторе объектов.Для получения дополнительной информации читайте о ShowModal методе.

Вот соответствующие фрагменты кода DFM, чтобы проиллюстрировать установку свойства ModalResult:

  object btnOK: TButton
    Caption = 'OK'
    ModalResult = 1
  end
  object btnCancel: TButton
    Caption = 'Cancel'
    ModalResult = 2
  end