Delphi Modalresult Пример

В Delphi ModalResult — это свойство модального окна, которое указывает тип нажатой пользователем кнопки. Например, в диалоговом окне с кнопками "ОК" и "Отмена", при нажатии на "Отмена" ModalResult будет равен mrCancel. Тип ModalResult определяется константами, которые могут быть изменены в зависимости от нужд разработчика.Пример использования свойства ModalResult:

procedure TForm1.Button1Click(Sender: TObject);begin  if SomeCondition then    ModalResult := mrOk  else    ModalResult := mrCancel;end;

В этом примере ModalResult устанавливается в зависимости от выполнения некоторого условия. Если условие верно, то при закрытии окна ModalResult будет равен mrOk, в противном случае — mrCancel.Также можно использовать ModalResult для определения результата диалогового окна в другой части программы. Например:

var  Form2: TForm2;begin  Form2 := TForm2.Create(nil);  try    if Form2.ShowModal = mrOk then      // выполнить действия, если пользователь нажал кнопку "ОК"  finally    Form2.Free;  end;

Здесь при закрытии окна Form2 ModalResult возвращается методом ShowModal. Если пользователь нажал кнопку "ОК", то в этом месте будет выполнен некоторый код, иначе выполнение программы продолжится далее.