Форум: "Начинающим";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];
Вниз
Окно ввода пароля Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.042 c
