Nomadic советует:
Обманом можно все.
procedure ShowAlmostModal(FormModal:TForm); begin NavigatorForm.Enabled:=false; FormModal.ShowModal end; |
И вот это пpивесь на OnShow почти модальной фоpмы
procedure FormShow(Sender:Tobject); begin NavigatorForm.Enabled:=true; end; |
[001110]