День добрый!
Помогите разобраться с проблемой: (D6)
есть окно авторизации (пароль и логин), после проверки должно появляться основное окно программы. Но после подтверждения логина и пароля (если они верны) программа вылетает и прекращает работу.
пишу в .dpr:
begin
Application.Initialize;
Application.CreateForm(TfUsers, fUsers); // форма авторизации
fUsers.ShowModal; //показываю форму авторизации
if fUsers.ModalResult = mrOK then // если правильный лигин и пароль и нажали ОК, проверка на
// правильность пароля и логина пишу в форме авторизации при нажатии на ней кнопки ОК
begin
Application.CreateForm(TfMain, fMain); // создание основной формы
Application.Run;
end
else Application.Terminate;
end.

не пойму почему вылетает? ставлю "стоп" на else Application.Terminate; и при проверке значений fUsers.ModalResult = 2, очень странно; а mrOK = 1; естественно вылетать будет. Вот и не ясно почему двум равно.
Может кто знает как мне можно помочь?

Потому что главной считается первая автоматически созданная форма. У тебя первая - fUsers. И когда она закрывается, соответственно закрывается и программа.

Project -> Options -> Forms -> MainForm (выбери из списка fmain)
А вместо Application.Terminate подставь Halt (по-моему так будет более корректно, так как ты закрываешь приложение на стадии инициализации)

я написАла по-другому, но все равно такая же проблема.

begin
Application.Initialize;
Application.CreateForm(TfMain, fMain);
Application.ShowMainForm := False;
Application.CreateForm(TfUsers, fUsers);
fUsers.ShowModal;
if fUsers.ModalResult = mrOK then
begin
Application.ShowMainForm := true;
Application.Run;
end
else Application.Terminate;
end.

в Project -> Options -> Forms -> стоит fMain как главная форма.
Что еще я криво написАла?

Код

Begin With Application Do  Begin   Initialize;   With TFUsers.Create(nil) Do    try     CreateForm(TfMain, fMain);     ShowModal;     IF ModalResult<>mrOk then Abort;     Run;    finally     Free;    end; End.

Может у тебя ошибка при проверке логина и пароля? Т.е. при нажатии на кнопке
Ok всегда выходит с ModalResult = 2.... Покажи код, что происходит при нажатии кнопки Ok.

Dayana да, именно так: "всегда выходит с ModalResult = 2" не знаю почему. код, к-ый обрабатывается при нажатии на ОК (в форме авторизации):

procedure TfUsers.btnOKClick(Sender: TObject);
begin
case fUsers.ComboBox1.ItemIndex of
0:begin
if fUsers.Edit1.Text = '123' then
fUsers.Close
else
MessageDlg('Неверный пароль!', mtError, [mbOK], 0);
end;
1:begin
if fUsers.Edit1.Text = '1234' then
fUsers.Close
else
MessageDlg('Неверный пароль!', mtError, [mbOK], 0);
end;
2:begin
if fUsers.Edit1.Text = '12345' then
fUsers.Close
else
MessageDlg('Неверный пароль!', mtError, [mbOK], 0);
end;
end; // конец CASE
end;

Song куда это вставлять надо?

А ModalResult надо на кнопки назначать. Ты назначила?

Цитата

Song куда это вставлять надо?

В dpr

Цитата

Dayana да, именно так: "всегда выходит с ModalResult = 2" не знаю почему. код, к-ый обрабатывается при нажатии на ОК (в форме авторизации)...

Потому что этот код у кнопки btnOK в ModalResult. Ты когда тип кнопки назначала (с зелёной галочкой наверно), ModalResult у тебя назначился самостоятельно.

neutrino да назначила, при создании фрмы:

procedure TfUsers.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Clear;
ComboBox1.Items.Add('Администратор');
ComboBox1.Items.Add('Менеджер');
ComboBox1.Items.Add('Секретарь');
Edit1.PasswordChar := '*';
btnOK.ModalResult := mrOk;
btnCancel.ModalResult := mrCancel;
end;

Цитата(Song @ 11.5.2003, 02:48)

Ты когда тип кнопки назначала (с зелёной галочкой наверно), ModalResult у тебя назначился самостоятельно.

ничего такого не было. у меня кнопки ОК и ОТМЕНА - обычные кнопки, а не TBitBtn:

btnOK: TButton;
btnCancel: TButton;

Посмотри их ModalResult

Song вот такие:
btnOK.ModalResult := mrOk; - 1
btnCancel.ModalResult := mrCancel; - 0

Тогда я чего-то не пойму: зачем ты делаешь fUsers.Close если кнопка, обладая ModalResult, кроме как mrNone, сама закроет форму!

В этом и ошибка. Не нужно насильно закрывать форму, тогда ModalResult формы сохранит значение ModalResult кнопки. А если пароль неверный, то меняй значение ModalResult формы в коде...

Все супер! получилось. НаписАла так:

procedure TfUsers.btnOKClick(Sender: TObject);
begin
case fUsers.cbLogin.ItemIndex of
0:begin
if fUsers.ePassword.Text <> '123' then MessageDlg('Неверный пароль!', mtError, [mbOK], 0);
end;
1:begin
if fUsers.ePassword.Text <> '1234' then MessageDlg('Неверный пароль!', mtError, [mbOK], 0);
end;
2:begin
if fUsers.ePassword.Text <> '12345' then MessageDlg('Неверный пароль!', mtError, [mbOK], 0);
end;
end; // конец CASE
end;

только если я ввожу неправильный пароль, сначала выскакивает окно "Неправильный пароль", и пользователь может ввести его еще раз. А потом я опять ввожу неправильный пароль, но программа активизируется, как-будто это правильный пароль.

Раз уж такие заморочки с ModalResult то можно обойтись и без него.
Просто при нажатии кнопки btnOk проверяй правильность пароля, если правильно, то просто закрывай форму и все, если нет то оставляй ее открытой. По клику на btnCancel убивай приложений (Halt).
Соответственно надо подправить dpr, чтобы не было проверок ModalResult

СУПЕР! все получилось и работает. Сделала так:
во-первых ввела глобальную переменную FLAG : Boolean, которая отвечает за то, что правильно введены пароль и логин.
во-вторых, написАла следующее (форма авторизации, нажата кнопка ОК):

procedure TfUsers.btnOKClick(Sender: TObject);
begin
case fUsers.cbLogin.ItemIndex of
0:begin
if fUsers.ePassword.Text <> '123' then
begin
MessageDlg('Неверный пароль!', mtError, [mbOK], 0);
FLAG := false;
end
else
begin
fUsers.Close;
FLAG := true;
end;
end;
1:begin
if fUsers.ePassword.Text <> '1234' then
begin
MessageDlg('Неверный пароль!', mtError, [mbOK], 0);
FLAG := false;
end
else
begin
fUsers.Close;
FLAG := true;
end;
end;
2:begin
if fUsers.ePassword.Text <> '12345' then
begin
MessageDlg('Неверный пароль!', mtError, [mbOK], 0);
FLAG := false;
end
else
begin
fUsers.Close;
FLAG := true;
end;
end;
end; // конец CASE
end;

.dpr :

begin
Application.Initialize;
Application.CreateForm(TfMain, fMain);
Application.ShowMainForm := False;
Application.CreateForm(TfUsers, fUsers);
fUsers.ShowModal;
if FLAG then
begin
Application.ShowMainForm := true;
Application.Run;
end
else Halt;
end.

В-третьих, убрала с кнопок ОК и Отмена значения ModalResult mrOK и mrCancel соответственно.

СПАСИБО ВСЕМ ЗА ПОМОЩЬ!!!!!!!!!!!!!!!!!
чтобы я без вас делала?!

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

Проверять пароль на Form1.onShow

jnSow какой формы? авторизации или главной?

т.е. onShow

Ну естесно главной

а что делать с обработчиком на кнопке ОК, в форме авторизации? просто fMain.Show? - тогда если пароль неправильный, то форма все равно показывается.
ведь ничего не происходит, если просто сделать проверку в Show.

Да сделай Close асинхронно и всё..

Попробуй открывать главное окно программы в обработчике закрытия формы авторизации

Я делал так

Код

procedure TMainForm.FormActivate(Sender: TObject); var  continue: boolean; begin  continue:= True;  // крутим цикл до тех пор, пока не введут правильное имя/пароль  // или не нажмут отмену.  while continue do  begin    if dlgLogin.ShowModal = mrOK then      continue:= not ValidLogin(dlgLogin.Login.Text, dlgLogin.Password.Text)    else    begin      continue:= False;      Close;    end;  end; end;

иф ModalResult<>mrOk зен WM_CLOSE

Цитата

иф ModalResult<>mrOk зен WM_CLOSE

Вроде как порешили не использовать ModalResult

*^angel^*, предлагаю простой способ:

dpr:

Код

//собственно ничего оригинального здесь нет  Application.Initialize;  Application.CreateForm(TfMain, fMain);  Application.CreateForm(TfUsers, fUsers);  application.ShowMainForm:=false;  Application.Run;

на ГЛАВНУЮ форму выложи таймер, установи интервал в несколько мс и добавь процедуру:

Код

procedure TfMain.Timer1Timer(Sender: TObject); begin timer1.enabled:=false; fUsers.show; //именно show, а не showmodal!!! end;

в форме авторизации при клике на btnOk проверяй правильность пароля, если пароль верный, то закрывай эту форму и отображай главную (fMain.show), если пароль неправильный, то оставляй форму открытой.
При клике на btnCancel закрывай приложение (application.terminate)

И усе готово!