[Ekler1]

Итак есть три формы MDIForm - fm1, MDIChild - fm2
на fm3 находится авторизация, как сделать чтоб она появлялась перед fm1 и надо ли в fm3 FormStyle ставить свойство MDIchild?

[Alegun]

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

...как сделать чтоб она появлялась перед fm1...

Можно сделать так: в dpr-файле должно быть

Код:

...
begin
  Application.ShowMainForm:= false;
  Application.Initialize;
  Application.CreateForm(Tfm1, fm1);
  Application.CreateForm(Tfm2, fm2);
  Application.CreateForm(Tfm3, fm3);
  Application.Run;
end.

Формы с параметрами:
fm1 > FormStyle = fsMDIForm, Visible = false
fm2 > FormStyle = fsMDIChild
fm3 > FormStyle = fsNormal

сперва появится fm3, но здесь может быть косяк - если её закрыть (она не главная), сборка останется висеть запущенной, нужно за этим следить

[Ekler1]

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

Можно сделать так: в dpr-файле должно быть

Код:

...
begin
  Application.ShowMainForm:= false;
  Application.Initialize;
  Application.CreateForm(Tfm1, fm1);
  Application.CreateForm(Tfm2, fm2);
  Application.CreateForm(Tfm3, fm3);
  Application.Run;
end.

Формы с параметрами:
fm1 > FormStyle = fsMDIForm, Visible = false
fm2 > FormStyle = fsMDIChild
fm3 > FormStyle = fsNormal

сперва появится fm3, но здесь может быть косяк - если её закрыть (она не главная), сборка останется висеть запущенной, нужно за этим следить

[dcc32 Fatal Error] F2039 Could not create output file '.\Win32\Debug\FreeOrder.exe'
Не хочет... Ошибка вылетает.

[Alegun]

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

[dcc32 Fatal Error] F2039..Не хочет... Ошибка вылетает.

Ну вот же, висит уже сборка в процессах, следует её закрыть предварительно

[Ekler1]

Да не заметил(
Но все равно не работает, если я ставлю fm1 Visible = false То после запуска приложение просто в процессах повисает и все( почему так?

[Alegun]

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

... почему так?

Видимо fm3 (авторизация) тоже скрыта от глаз, проверьте видимость

[lmikle]

Да проще все.
В файле проекта делам так:

Код:

begin
  Application.Initialize;

  fm3 := Tfm3.Create(Nil);
  Try
    if frm.ShowModal <> mrOK Then Halt(1);
  Finally
    fm2.Free;
  End;
  Application.CreateForm(Tfm1, fm1);
  Application.CreateForm(Tfm2, fm2);
  Application.Run;
end.

Соответсенно, если авторизация прошла, то форма должна вернуть mrOK. Например так:

Код:

procedure Tfm2.Button1Click(Sender: TObject);
begin
  If (Edit1.Text = 'user' and Edit2.Text = 'pwd') // тут проверка авторизации, для простоты просто сравнил с константами
    Then ModalResult := mrOK
    Else  
      Begin
        ShowMessage('Непрвильные логин/пароль.');
        ModalResult := mrCancel;
     End;
end;

PS. Еще можно "воткнуться" в OnCreate главной формы и в случае неправильной авторизации закрывть приложение через Halt();