Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Окно ввода пароля

switch © (2007-05-10 02:14:00)
Как сделать чтобы при открытии приложения с базой даннох первым появлялось окно ввода логина и пароля? Я пробовала делать эту форму главной, но это не правильно, потому что после ввода пароля ее нужно закрыть...

delphino (2007-05-10 10:03:00) [1]
Здорово! Все работает! Огромное спасибо.

{RASkov} (2007-05-10 09:48:00) [2]
> в их свойствах поставить bkOk и bkCancel....

в их свойствах Kindпоставить bkOk и bkCancel....

{RASkov} (2007-05-10 09:45:00) [3]
> [11] delphino (10.05.07 09:38)
> procedure TForm2.Button1Click(Sender: TObject);
> begin
> Form1.Show;
> Close;
> end;

Этого не надо... достаточно у кнопок на Form2(Ok и Cancel) в их свойствах поставить bkOk и bkCancel.... Все. Либо в Form2 просто закрывай форму выставляя ModalResul в нужный и все. Пример:
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
if Пароль верный then ModalResult:=mrOk else ModalResult:=mrCancel;
end;

delphino (2007-05-10 09:38:00) [4]
не поняла последнее сообщение.:-( Окно ввода пароля появляется, как после нажатия кнопки открыть главную форму?
На это он ругается
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Show;
Close;
end;

{RASkov} (2007-05-10 09:12:00) [5]
Ну и в OnCLose Form2 Action:=caFree;
или
Form2.Free; Form2:=nil; после Form2.ShowModal в dpr'е
*пароля - иначе как то смотриться "Введите пароль:" - "пароль".:)

{RASkov} (2007-05-10 09:06:00) [6]
> [6] delphino (10.05.07 04:44)

program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, //Главная форма Unit2 in 'Unit2.pas' {Form2}; //Форма с запросом пароль {$R *.res} begin Application.Initialize; Form2:=TForm2.Create(nil); if Form2.ShowModal=1 then begin Application.CreateForm(TForm1, Form1); Application.Run; end; end.

Steep (2007-05-10 08:31:00) [7]
А можно еще показать окошко при запуске приложения (еще до показа основной формы)
точно не помню как называется.. там где Apllication
Включай свой юнит с окошком ввода, подключай и другие нужные юниты

Virgo_Style (2007-05-10 07:52:00) [8]
delphino (10.05.07 3:59) [5]
а ошибка такая 'Form1.ShowModal' is not valid identifier

Unit, в котором описана Form1, включен в uses?

delphino (2007-05-10 04:44:00) [9]
И что никто больше ничего не посоветует?:[

delphino (2007-05-10 03:59:00) [10]
а ошибка такая 'Form1.ShowModal' is not valid identifier » Джо: » Настоятельная просьба придерживаться одного ника хотя бы в пределах ветки.

delphino (2007-05-10 03:57:00) [11]
я не мучу с никами - просто никак не могу определиться какой мне больше нравиться!:-)))

Германн (2007-05-10 03:50:00) [12]

> delphino (10.05.07 03:32) [2]
>
> А что в OnShow нужно написать? Я писала Form1.ShowModal
> выдает ошибку.
>

А какую ошибку выдаёт?

P.S.
У меня в OnShow главной формы однажды было 3 (три) вызова ShowModal других форм! И ничего. Никаких ошибок. (То было, конечно, вызвано моей глупостью, но ведь работало без ошибок :)

P.P.S. И не надо "мутить" с никами. Ничего хорошего, кроме плохого это не вызовет :)

delphino (2007-05-10 03:32:00) [13]
А что в OnShow нужно написать? Я писала Form1.ShowModal выдает ошибку.

Германн (2007-05-10 02:19:00) [14]

> switch (10.05.07 02:14)
>
> Как сделать чтобы при открытии приложения с базой даннох
> первым появлялось окно ввода логина и пароля? Я пробовала
> делать эту форму главной, но это не правильно, потому что
> после ввода пароля ее нужно закрыть...
>

Открой это окно в OnShow главной формы, например.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »