Delphi. Активное неMDI окно, поверх неативного MDI.

[Zo0M]

Мне необходимо при создании главного MDI окна(как я понял главное, то которое объявлено первым. В моём случае - MainF) вывести побочное(не MDI) которое будет активно

begin
  Application.Initialize;
  Application.CreateForm(TMainF, MainF);
  Application.CreateForm(TloginF, loginF);
  Application.Run;
end.

Побочному окну задал св-во fsStayOnTop.

Если в модуле main прописать

procedure TMainF.FormCreate(Sender: TObject);
begin
LoginF.Show;
MainF.Hide;
end;

То получается, что мы обращаемся к LoginF, ещё не создав его, и вылазит ошибка;


Если же в модуле Login прописать

procedure TloginF.FormCreate(Sender: TObject);
begin
LoginF.Show;
MainF.Hide;
end;

То окно хоть и пояляется сверху, но оно не активно, а активно MDI.

Есть функция для активации окна?

[Stilet]

MainF.Hide;

Это еще что за финт? ты же скрывать пытаешся главную форму из ее дочерней...

[Zo0M]

Сообщение от Stilet

Это еще что за финт? ты же скрывать пытаешся главную форму из ее дочерней...

У меня LoginF не дочерняя форма. У неё в св-вах FormStyle стоит fsStayOnTop

[Stilet]

А-а-а тогда метод SetFocus переключит на нужное окно.

[Zo0M]

Сообщение от Stilet

А-а-а тогда метод SetFocus переключит на нужное окно.

Его юзать в каком модуле?
В Main или в Login?
И при каком событии?
OnCreate или OnShow?

[Stilet]

И при каком событии?

В OnShow или после выполнения метода Show

[Zo0M]

Спасибо, я процедуру то написал, а вот в Event`ах её не выбрал)

Тогда другой вопрос, как сделать одну из 2-х форм, находящихся на экране неактивной и недоступной для работы?
Т.е на экране впереди первая форма, а вторая сзади и по ней даже щёлкнуть нельзя. Как при выборе пути установки в Install Shield Wizard

[Stilet]

Тогда другой вопрос

Либо переднюю форму открывать методом ShowModal, либо вторую форму выставить в Form2.Enabled:=false;, а потом обратно