Код:
Begin
While True Do
begin
//Application.CreateForm(TDMForm, DMForm);
DMForm := TDMForm.Create(Application);
LoginForm := TLoginForm.Create(Application);
Case LoginForm.ShowModal of
mrAbort : Application.MessageBox('Проверьте имя пользователя и пароль!', 'Ошибка авторизации',(MB_ICONWARNING));
mrOk:
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
Break;
end;
end;
End;
Правда один фиг это через упож.
-----------
Я делал так:
Код:
Application.Initialize;
if TfrmUserLogin.UserLogin(Application, TfrmMain.UserLoginInfo) then
begin
Application.MainFormOnTaskbar := True;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end;