Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c