День добрый!
Помогите разобраться с проблемой: (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