Обманом можно все.
procedure ShowAlmostModal(FormModal:TForm);
begin
NavigatorForm.Enabled:=false;
FormModal.ShowModal
end;
И вот это пpивесь на OnShow почти модальной фоpмы
procedure FormShow(Sender:Tobject);
begin
NavigatorForm.Enabled:=true;
end;
Serge Buzadzhy
(2:467/44.37)Как всегда, полезно посмотреть исходные тексты VCL, а именно функции ShowModal. ;-)