Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

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

 
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;


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

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


 
{RASkov} ©   (2007-05-10 09:48) [13]

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

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


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

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



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

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.046 c
15-1178100684
ыукмшсу
2007-05-02 14:11
2007.05.27
Регистрация службы в MS Vista


15-1177436016
Kerk
2007-04-24 21:33
2007.05.27
Дайте чтоль похвалюсь :))


2-1178445164
Loop
2007-05-06 13:52
2007.05.27
Сортировка TreeView


15-1177314953
Труднопроизносимоеимя
2007-04-23 11:55
2007.05.27
Как работать с реестром в C#


15-1178012802
@!!ex
2007-05-01 13:46
2007.05.27
Midlet Pascal