Минимизация с модальным окном

Автор: Nomadic

Мне нужно откpыть из моей фоpмы модальное окно, т.е. пpиостановить pаботу в моей фоpме до обpаботки этого модального окна. Hо пpи этом я теpяю возможность убpать (минимизиpовать) мою фоpму

function TMyForm.Execute: TModalResult;
begin
  Show;
  try
    SendMessage(Handle, CM_ACTIVATE, 0, 0);
    ModalResult := 0;
    repeat
      Application.HandleMessage;
      if Application.Terminated then
        ModalResult := mrCancel;
      if ModalResult = mrCancel then
        CloseModal;
    until ModalResult <> 0;
    Hide;
    Result := ModalResult;
    SendMessage(Handle, CM_DEACTIVATE, 0, 0);
  finally
    Hide;
  end;
end;

Конечно, в TMyForm должно быть FormStyle := fsStayOnTop;

Недавно добавленные исходники
• TDictionary Custom Sort 509 • Fast Watermark Sources 874 • 3D Designer 1 804 • Sik Screen Capture 1 457 • Patch Maker 1 460 • Айболит (remote control) 1 388 • ListBox Drag & Drop 1 159 • Доска для игры Реверси 21 307 • Графические эффекты 1 337 • Рисование по маске 1 275 • Перетаскивание изображений 1 086 • Canvas Drawing 963 • Рисование Луны 802 • Поворот изображения 756 • Рисование стержней 802 • Paint on Shape 486 • Генератор кроссвордов 748 • Головоломка Paletto 659 • Теорема Монжа об окружностях 839 • Пазл Numbrix 607 • Заборы и коммивояжеры 835 • Игра HIP 551 • Игра Go (Го) 522 • Симулятор лифта 544 • Программа укладки плитки 505 • Генератор лабиринта 560 • Проверка числового ввода 520 • HEX View 596 • Физический маятник 522 • Задача коммивояжера 556