Подумав с книжкой по делфи в руках
получил вот такой код
Код:
Begin
While True Do
begin
//Application.CreateForm(TDMForm, DMForm);
DMForm := TDMForm.Create(Application);
LoginForm := TLoginForm.Create(Application);
LoginForm.ShowModal;
Case LoginForm.ShowModal of
mrCancel : Halt(0);
mrAbort : Application.MessageBox('Проверьте имя пользователя и пароль!', 'Ошибка авторизации',(MB_ICONWARNING));
mrOk:
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
Exit;
end;
end;
End;
Все в принципе отрабатывает как я задумал, но есть одно НО все операции срабатывют только при втором нажатии
Опять что то нашаманил не то
