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

← →
switch (2007-05-10 02:14) [0]

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

← →
Германн © (2007-05-10 02:19) [1]

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

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

← →
delphino (2007-05-10 03:32) [2]

А что в OnShow нужно написать? Я писала Form1.ShowModal выдает ошибку.

← →
Германн © (2007-05-10 03:50) [3]

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

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

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

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

← →
delphino (2007-05-10 03:57) [4]

я не мучу с никами - просто никак не могу определиться какой мне больше нравиться!:-)))

← →
delphino (2007-05-10 03:59) [5]

а ошибка такая "Form1.ShowModal" is not valid identifier» Джо:» Настоятельная просьба придерживаться одного ника хотя бы в пределах ветки.

← →
delphino (2007-05-10 04:44) [6]

И что никто больше ничего не посоветует?:[

← →
Virgo_Style © (2007-05-10 07:52) [7]

delphino (10.05.07 3:59) [5]
а ошибка такая "Form1.ShowModal" is not valid identifier

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

← →
Steep © (2007-05-10 08:31) [8]

А можно еще показать окошко при запуске приложения (еще до показа основной формы)
точно не помню как называется.. там где Apllication
Включай свой юнит с окошком ввода, подключай и другие нужные юниты

← →
{RASkov} © (2007-05-10 09:06) [9]

> [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.

← →
{RASkov} © (2007-05-10 09:12) [10]

Ну и в OnCLose Form2 Action:=caFree;
или
Form2.Free; Form2:=nil; после Form2.ShowModal в dpr"е
*пароля - иначе как то смотриться "Введите пароль:" - "пароль".:)

← →
delphino (2007-05-10 09:38) [11]

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

> [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;

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

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

← →
delphino (2007-05-10 10:03) [14]

Здорово! Все работает! Огромное спасибо.

Окно ввода пароля Найти похожие ветки