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

Вниз

re-enter: пароль   Найти похожие ветки 

← →
diks ©   (2003-01-11 15:38) [0]

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

---

← →
gsu ©   (2003-01-11 15:44) [1]

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

---

← →
Vit@ly ©   (2003-01-11 15:59) [2]

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

---

← →
han_malign ©   (2003-01-11 16:02) [3]

Поправлю 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.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.012 c