Как вывести окно модальное для всех окон кроме одного

Благодарю за поддержку!

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как вывести окно модальное для всех окон кроме одного

Автор: Serge Buzadzhy

procedure ShowAlmostModal(FormModal:TForm);
begin
  NavigatorForm.Enabled := false;
  FormModal.ShowModal
end;

И вот это пpивесь на OnShow почти модальной фоpмы

procedure FormShow(Sender:Tobject);
begin
  NavigatorForm.Enabled := true;
end;