| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

re-enter: пароль [D6, Win95/98]

diks ©   (2003-01-11 15:38:00) 

как сделать чтобы при запуске программы появлялась форма пароля а после правильного ввода появлялась вторая форма

---

han_malign   (2003-01-11 16:02:00) [1]

Поправлю TCustomDelpiMaster
program Project1;

uses
Forms, Controls,
Unit1 in "Unit1.pas" {Form1},
Unit2 in "Unit2.pas" {TPasswordForm};

{$R *.RES}
var fPsvCorrect: boolean;
begin
Application.Initialize;
with TPasswordForm.Create(Application) do
begin
fPsvCorrect:=false;
while(not fPsvCorrects and(ShowModal = mrOk))
do fPsvCorrect:=CheckPassword(edPasword.Text);
Free;
end;
if(fPsvCorrect)then begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.

---

Vit@ly   (2003-01-11 15:59:00) [2]

А чем не подходит RxLoginDialog?

---

gsu   (2003-01-11 15:44:00) [3]

Те ж объясняли или у тя бесконечная проца ?

---

Наверх