Проблема отображения главной формы над другими

[Прик]

Может кто знает как обуздать следующую ситуацию (D 2009).

Главная форма обычная: FormStale = fsNormal.
Из главной формы динамически создаются несколько других не модальных одного класса.
FormStale = fsNormal, BorderStyle = bsSizeToolWin (впрочем, последнее не влияет на решение проблемы).

После создания динамической формы она автоматом становится активной и частично перекрывает главную (динамически созданные формы могут иметь разные размеры и перекрывают главную по разному).

Проблема.
При активации главной формы (тыкаем мышкой в видимую ее часть) она становиться активной, но не вытаскивается поверх той, которая была ранее активной. Т.е. все равно главная перекрыта созданной формой.
Хотелось чтобы главная при активации была как говорится "stay on top".

Но FormStyle = fsStayOnTop, в принципе, проблему не решают.
Попытка была такая: при активации главной формы (в OnActivate) присвоить FormStyle = fsStayOnTop, а при создании динамической формы возвращать значение в fsNormal. И на первый взгляд это даже работает, но только на первый взгляд. При создании динамических форм тыкание мышки в главную выносит ее поверх всех созданных, но только если не трогать те созданные. Стоит только ткнуть в любую созданную форму и на этом эффект перекрытия главной формы остается уже постоянно.
fsStayOnTop главной при ее активации как бы не срабатывает и она все равно перекрыта другими.

Еще неприятность: "stay on top" главной формы не требуется и только мешает, т.е. принципиально не хотелось бы применять;

---
Обнаружил, что в D 7 такого эффекта не наблюдается. Главная форма при активации прилежно выползает поверх всех других.

[Sibedir]

Может попробывать

procedure TfrmMain.FormActivate(Sender: TObject);
begin
  frmMain.BringToFront;
end;

[Прик]

В первом посте не отметил, что и BringToFront тоже не помогает. Испытано. Да этот метод и действует только на компоненты формы, к форме не применим.
Для большего понимания проблемы картинка. На ней видно, что главная форма активна, а перед этим созданная - нет. Тем не менее главная форма перекрыта.

[Пепел Феникса]

покажите как создаете и показываете формы.

[Прик]

procedure TForm1.DBGridEh1DblClick(Sender: TObject);
var N : string;
begin
  N := ADOQuery1.FieldValues['TableName'];
  if N <> '' then begin
    if not IsFormOpen(N) then begin
      frmRecords := TfrmRecords.Create(Application);
      frmRecords.Init(N);
      frmRecords.Show;
    end;
  end;
end;

В методе Init динамической формы нет ничего такого, чтобы влияло на появление формы, кроме вычисление ее размеров.

[asmodey1]

frmRecords := TfrmRecords.Create(Application);

Замените на SELF...

[Прик]

Пытал и Self, и nil. Результат один - все то же самое, главная форма перекрывается.
Хм, где же собака зарылась?..

[asmodey1]

Ну не знаю...
Я сделал 3 формы, каждая создается и показывается из предыдущей. И все нормально, если у них у всех FormStyle=fsNormal, а не fsStayOnTop. Ни одна из них не торчит поверх главной...

[Прик]

Кто работает с D 2009 компильните приложенный примитивный проект, в котором проявляется проблемный эффект (во всяком случае, у меня).
Версии:
Delphi® 2009 Version 12.0.3170.16989
Windows XP (Build 2600: Service Pack 3). Обновляемый через Windows Update.

[asmodey1]

Компильнул в Д7 - все нормально, только в проекте закомментировал строку
Application.MainFormOnTaskbar := True;