Форма с авторизацией пользователя после появления главной формы

[r00xus]

Здравствуйте коллеги. При запуске приложения появляется форма для ввода логина и пароля. Раньше было так:

procedure TMainForm.FormShow(Sender: TObject);
begin
   LogonForm := TLogonForm.Create(nil);
   LogonForm.ShowModal;
end;

то есть LogonForm появляется до появления главной формы.
А теперь нужно чтобы она появлялась после появления главной. Как такое реализовать?

[Greek9000]

Как вариант - создать неактивный таймер, по событию FormShow его запустить, в OnTimer деактивировать этот таймер и выполнить приведённый пример кода.

[r00xus]

это первое что пришло на ум... но нехорошо как-то...

[zmey31313]

Через событие OnClick по главной форме, т. е. после нажатия на главную форму, блокировать её и выводить окно формы с авторизацией пользователя, хотя лучше сделать через OnActivate.

[Greek9000]

Странно...
У меня форма новая показывается после отображения главной ...

procedure TfrmMain.FormShow(Sender: TObject);
begin
  // накидал по-быстрому...
  frmDel := TfrmDel.Create(nil);
  frmDel.ShowModal;
end;

Тем не менее, попробуйте сделать вот так:

procedure TfrmMain.FormShow(Sender: TObject);
begin
  while not frmMain.Visible do begin
    Application.ProcessMessages;
  end;
  LogonForm := TLogonForm.Create(nil);
  LogonForm.ShowModal;
end;

[r00xus]

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

Странно...
У меня форма новая показывается после отображения главной ...

Application.ProcessMessages не помогло... все равно LogonForm появляеться первой блокуя появление главной. у вас Delphi какой версии? не могли бы вы выложить пример если не трудно...

[mihali4]

procedure TForm1.FormActivate(Sender: TObject);
begin
Form2:=TForm2.Create(Application);
Form2.ShowModal;
Form2.Free;
end;

[Greek9000]

Application.ProcessMessages не помогло... все равно LogonForm появляеться первой блокуя появление главной. у вас Delphi какой версии? не могли бы вы выложить пример если не трудно...

К сожалению, выложить проект не могу - он рабочий, да к тому же он содержит нестандартные компоненты и соединение с БД и поэтому у Вас вряд ли запустится.
На пустом проекте наблюдается Ваш эффект (модальная форма отображается до главной).
Я попытался в своём закомментировать OnCreate главной формы - "Ваш эффект" не появился. Затем на тестовую главную форму накидал основные компоненты, которые были в рабочем проекте - опять тишина.
Текст проекта:

program dbrpl;

uses
  Forms,
  uMain in 'uMain.pas' {frmMain},
  DumpMaker in 'DumpMaker.pas',
  SchemeUtils in 'SchemeUtils.pas',
  uCrypt in 'uCrypt.pas',
  DataMngUtils in 'DataMngUtils.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

т.е. абсолютно стандартный.

Так что - будем искать...

З.Ы.

Нашёл!
У меня на форме лежит компонент TFormStorage из библиотеки RXLib. Он нужен для сохранения текущего состояния формы (размер, положение и т.д.). У него есть свойство Active. Обычно у меня оно всегда выставлено как False, но в этот раз я торопился и забыл его сбросить, поэтому оно осталось равным True (по-умолчанию). Этот компонент сохранил состояние главной формы (wsMaximized). Он же восстанавливает это состояние во время создания формы. А при восстановлении делает что-то, что заставляет отобразиться главную форму до начала выполнения FormShow.
Что бы разобраться, что же конкренто отображает форму внутри компонента - потребуется некоторое время.
Пока же Вы можетет просто воспользоваться данным знанием без его понимания.
Единственный минус этого метода в том, что в системной папке создастся ini-файл (по-моему с именем Вашего экзешника).