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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: 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;

{/codecitation}

Добавить комментарий