Вторая форма всегда над главной в FireMonkey

[Aptyp]

Если в FireMonkey поставить FormStyle в значение StayOnTop, то форма будет над всеми окнами системы, а мне надо чтобы она оставалась только лишь над главной, но пряталась под окнами других программ. Чтобы я не пробовал – ничего нормального не выходит.

[krapotkin]

а в каком приложении такие есть ? так ведут себя только модальные окна

делайте другую оконную концепцию

[OnePeople]

procedure MyCurrentForm.MyButtonClick(Sender: TObject);
var
  dlg: TMyModalForm;
begin
  // Create an instance of a form.
  dlg := TMyModalForm.Create(nil);

  // Configure the form. For example, give it a display name.
  dlg.Caption := 'My Modal Dialog Box';

  // Show your dialog box and provide an anonymous method that handles the closing of your dialog box.
  dlg.ShowModal(
    procedure(ModalResult: TModalResult)
    begin
      // Do something.
    end
  );
end;

Из docwiki.embarcadero.com

[Aptyp]

@OnePeople Забыл уточнить, что основная форма должна оставаться активной

[Aptyp]

Решил задачу таким способом:

   if ( uMsg = WM_ACTIVATEAPP )and( fModal.Visible ) then
    SetWindowPos(FormToHWND(fModal), IfThen( wParam = 1, HWND_TOPMOST, HWND_NOTOPMOST ),
      Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE );

Таким образом модальное окно (которое на самом деле не модальное) находиться всегда сверху, когда приложение активно. Когда приложение теряет фокус, окно теряет свой статус нахождения сверху, но остаётся прорисованным сверху главной формы. При всём при этом главная форма так же остаётся доступной для работы, в отличие от ShowModal.

[krapotkin]

т.е. вы в момент деактивации сняли с него StayOnTop, а при активации надели обратно?

[Aptyp]

@krapotkin 

Редактирование свойства FormStyle между StayOnTop и Normal – не подходит, так как форма в этот момент прыгает. Видимо из-за того что в коде класса формы вызываются данные методы: procedure TCommonCustomForm.SetFormStyle(const Value: TFormStyle); ... begin ...   Screen.RemoveForm(self); ...   Screen.AddForm(self); ... end;

Изменено 29 февраля пользователем Aptyp