Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Вниз

Форма авторизации   Найти похожие ветки 

 
DimNK   (2002-04-13 12:24) [0]

Подскажите как проавильно сделать авторизацию.
Я делаю вот так.
Application.Initialize;
Application.CreateForm(TDM, DM);
? Application.CreateForm(TfrmQuestion, frmQuestion);
Application.CreateForm(TfrmLogin, frmLogin);
frmLogin.ShowModal;
if frmLogin.user_id<>"-1" then
begin
Application.CreateForm(TfrmEditSubject, frmEditSubject);
Application.CreateForm(TfrmUser, frmUser);
Application.Run;
end;
Но когда создается frmQuestion она сразу активируется.
А если frmLogin ставить главной формой тогда она она вылазит после закрытия всех остальных форм.


 
Anatoly Podgoretsky   (2002-04-13 12:34) [1]

А ты какую хочешь главной


 
DimNK   (2002-04-13 12:40) [2]

Главной я хочу frmQuestion, но так, чтобы сначала вылазила авторизация. Если успешная грузится главная, если нет - все закрывается


 
Anatoly Podgoretsky   (2002-04-13 13:29) [3]

Тебе надо вывести форму авторизации за пределы цикла создания форм, до initialize или вызывать ее из frmQuestion



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.005 c
6-81026
Ghost.
2002-02-12 13:12
2002.04.25
Вопрос по DNS


1-80906
sergr
2002-04-11 12:58
2002.04.25
Как сделать форму нестандартных размеров?


3-80817
Zak
2002-04-05 08:38
2002.04.25
Печать МЕМО записей в Qreport


14-81052
Наивный
2002-03-18 22:52
2002.04.25
Пожалуйста помогите или дайте совет по этой теме!


14-81083
Alx2
2002-03-13 09:11
2002.04.25
Где на Руси жить хорошо?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский