MDI окна...

[chiffa]

Добрый день всем. Есть три формы:
Авторизация - FrmLn
Основная форма - FrmMain
Форма настроек - FrmSett

Главной формой является FrmLn (что бы стартовала при запуске).

После успешной авторизации загружается форма FrmMain, гружу через FrmMain.ShowModal; которая уже не является главной и со стилем fsMDIForm. Из нее пытаюсь вызвать форму FrmSett со стилем fsMDIChild, выдаю так:

procedure TFrmMain.N7Click(Sender: TObject);
begin
CreateChildFormSea('Child1');
end;

procedure TFrmMain.CreateChildFormSea (const childName : string);
    var Child: TFrmSett;
begin
  Child := TFrmSett.Create(Application);
  Child.Caption := childName;
end;

в результате получаю ошибку: Cannot create form. No MDI forms are currently Active. Насколько я понял ошибка связана с тем что форма FrmMain создается позже MDI... Подскажите как правильно реализовать описаное выше? Буду признателен за помощь!

[eduard93]

Сделайте наоборот: главная FrmMain, а логин показывайте из онкриэйт через ShowModal.

[chiffa]

Спасибо за ответ! А FrmMain делать Visible:=False, а потом показывать?...

eduard93, сделал так как ты написал - ошибка та же...

[eduard93]

Project->View source - первой должна создаватся FrmMain.

[chiffa]

eduard93, так она первая и создается, но ее же нужно скрыть, перед появление форм для ввода логина и пароля....

[eduard93]

Тогда там же перед Run допишите: "Application.ShowMainForm := False".

[Romantik_FM]

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

eduard93, так она первая и создается, но ее же нужно скрыть, перед появление форм для ввода логина и пароля....

в событии onActivate главной формы показывай авторизацию. если она успешна то просто закрыть иначе закрыть главную форму

[chiffa]

А не затрудник небольшой примерчик прикрепить с 3мя окнами?.... Буду весьма признателен!

[eduard93]

Примерчик:

//В dpr:
  Unit1 in 'Unit1.pas' {Form1}, //главная
  Unit2 in 'Unit2.pas' {Form2}; //логин

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.ShowMainForm := False;
  Application.CreateForm(TForm1, Form1);
  //логин-форму убираем, остальные по желанию
  //...
  Application.Run;

//В главном юните:
uses unit2;

procedure TForm1.FormCreate(Sender: TObject);
var
  login: TForm;
begin
  login := TForm2.Create(Self);
  try
    if login.ShowModal = mrOk then //на логин-форме должна
    //лежать кнопка с ModalResult = mrOk
      Application.ShowMainForm := True
    else
      Application.Terminate;
  finally
    login.Free;
  end;
//...

[chiffa]

Пасиба за ответ! То что надо! Но почему при создании проекта выдает ошибку
Access violation at address 0043C308 in module Main.exe

ссылаясь на строку login := TFrmAuth.Create(Self); Но если еще раз нажать Ф9, то все запускается и работает

при этом то что стоит в oncreate формы FrmAuth - не выполняется...