При запуске приложения вызвать форму перед показом основной

← →
ka1n (2006-12-20 16:14) [0]

Приложение бля базы данных.
Основное окно - MDI.
При запусе приложения, до вызова основной формы, нужно вызвать форму с диалогом выбора пользователя и пароля.
Если сделать основным форму с диалогом, то при запуске основной формы и попытке создать дочернее MDI-окно вылетает ошибка
First chance exception at $7C812A23. Exception class EInvalidOperation with message "Cannot create form. No MDI forms are currently active". Process ANTILope.exe (3584)

← →
tesseract © (2006-12-20 16:20) [1]

А нельзя после открытия главной формы вызвать диалог ввода пароля?

← →
alex_*** © (2006-12-20 16:20) [2]

Залезь в .dpr и перед стартом главной формы запусти нужный диалог

← →
Сергей М. © (2006-12-20 16:21) [3]

> до вызова основной формы, нужно вызвать форму

Вся соль в том, что ты подразумеваешь под "вызовом" формы ...

Есть создание объекта-формы, есть визуализация созданной формы, а что в дан.случае есть "вызов", "запуск" ?

← →
Sergey13 © (2006-12-20 16:21) [4]

> [0] ka1n (20.12.06 16:14)

Вызывай ее перед подключением к БД.

← →
Сергей М. © (2006-12-20 16:27) [5]

> Если сделать основным форму с диалогом

Не делай ее основной - и проблемы не будет.

← →
alex_*** © (2006-12-20 16:30) [6]

> Не делай ее основной - и проблемы не будет.
>

по мне как-то извращенно когда маленький диаложек - главная форма для большого проекта. Да и физически и логически это не так

← →
alex_*** © (2006-12-20 16:32) [7]

[6] ну типа вдогонку. Сначала не осознал смысл поста [5] :)

← →
Сергей М. © (2006-12-20 16:33) [8]

> alex_*** © (20.12.06 16:30) [6]

Кто ж спорит ? Так оно и есть)

← →
Loginov Dmitry © (2006-12-20 16:46) [9]

Используй Application.CreateForm() только для создания главной формы.
Остальные формы и модули данных - с помощью TForm.Create().

← →
ka1n (2006-12-22 15:18) [10]

Так?
Но форма MainForm все равно запускается, а подней FormLogon

Application.Initialize;
FormLogon:=TFormLogon.Create(Application);
FormLogon.Show;
Application.CreateForm(TMainForm, MainForm);
Application.Run;

> FormLogon.Show;

всё-таки ShowModal.

FormLogon:=TFormLogon.Create(Application); FormLogon.Show; FormLogon.Update; Application.Initialize; Application.CreateForm(TMainForm, MainForm); FormLogon.Free; Application.Run;

Application.Initialize;
FormLogon:=TFormLogon.Create(nil);
try
ModResult := FormLogon.ShowModal;
finally
FormLogon.Free;
end;
if ModResult = mrOk then begin
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end;

Удалено модератором

← →
ka1n (2006-12-25 14:55) [15]

Вот я ... не знаю кто....

это же очевидно ... аааа. (хватаясь за голову)

> > FormLogon.Show;
>
>
> всё-таки ShowModal.

При запуске приложения вызвать форму перед показом основной Найти похожие ветки