РАбота с несколькими формами

← →
Std (2006-04-05 14:20) [0]

Доброго времени.
Существует 2 формы, одна форма для ввода логина и пароля, вторая основная. подскажите пж как мне зделать чтоб если логин и пароль введены правильные то форма входа закрывалась и запускалась главная форма. проьывал делать

mainForm.Show;
loginForm.Close;
но закрывается все приложение

← →
balepa © (2006-04-05 14:26) [1]

А ты уверен что loginForm у тебя не главная ?
Я вот уверен что она у тебя главная.

← →
Std (2006-04-05 14:38) [2]

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

← →
Nick_serov (2006-04-05 14:42) [3]

> Доброго времени.
> Существует 2 формы, одна форма для ввода логина и пароля,
> вторая основная. подскажите пж как мне зделать чтоб если
> логин и пароль введены правильные то форма входа закрывалась
> и запускалась главная форма. проьывал делать
>
> mainForm.Show;
> loginForm.Close;
> но закрывается все приложение

Пробуй

loginForm.hide;

← →
Гаврила © (2006-04-05 14:52) [4]

Главной формой должна быть mainForm
(потому что все приложение автоматом закрывается при закрытии главной формы)
а показзывать loginForm можно в mainForm.OnCreate

← →
balepa © (2006-04-05 14:52) [5]

Самый простой способ:
В Unit"е проекта

begin
if InputBox("fff","ddddd","") = "11" then
begin
Application.Initialize;
Application.CreateForm(Tmainform,mainform);
Application.Run
end
else
application.Terminate;
end.

← →
Std (2006-04-05 15:22) [6]

2Гаврила
выбивает ошибку acces volation read adres 000000
2balepa
так к сожалению не получится :( нада обизательно что бы форма была и пароль будет сравниватся с с паролями из БД

Application.ShowMainForm := false;

Application.Initialize; FormPassword := TFormPassword.Create(Application); with FormPassword do try ShowModal; if not ( (ModalResult = mrOk) //нажата кнопка "ok" and CheckPassword //функция проверки подлиности пароля ) then Application.Terminate; finally Free; end; Application.CreateForm(TFormMain, FormMain); Application.Run;

РАбота с несколькими формами Найти похожие ветки