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

Вниз

Вывод окна перед запуском приложения   Найти похожие ветки 

 
romashka   (2003-08-14 12:03) [0]

Хочу вывести окно ввода пароля перед запуском приложения. Как сделать?


 
Боян Георгиев   (2003-08-14 12:08) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
Hide;
formPassword.ShowModal;
Show;
end;


 
Боян Георгиев   (2003-08-14 12:11) [2]

procedure TFormPassword.btnOKClick(Sender: TObject);
begin
if Edit1.Text = "1234"
then Close;
end;

procedure TFormPassword.btnCancelClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TFormPassword.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Edit1.Text <> "1234"
then Application.Terminate;
end;


 
dez ©   (2003-08-14 12:28) [3]

эт нужно делать в dpr файле.
--- cut here ---
Application.Initialize;
with TPassForm.Create(nil) do
try
if ShowModal = mrOk then Application.CreateForm(TMain, Main);
finally
if not RightPassword then Application.Terminate;
Free;
end;
Application.Run;
--- and here ---


 
Боян Георгиев   (2003-08-14 12:43) [4]

dez > Да, это лучший вариант


 
Prov ©   (2003-08-14 13:20) [5]

Лучше всё это дело вешать на onShow а не на onCreate


 
Alibaba ©   (2003-08-14 13:56) [6]

program Program;

uses
Windows, Dialogs, Forms,
dlgMain in "dlgMain.pas" {frmMain},
dlgPassWord in "dlgPassWord.pas" {frmPassWord};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmPassWord, frmPassWord);
Application.ShowMainForm:=False;
//---------------------------------------------
Здесь делаеш
свои дела
//---------------------------------------------
Application.Run;
end.


 
wl ©   (2003-08-14 14:01) [7]

А можно главную форму оформить в виде окошка с паролем :)))).
Кстати такой вариант, как описано выше, ломать одно удовольствие....


 
romashka   (2003-08-14 15:11) [8]

Спасибо! Помогло!



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

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

Наверх




Память: 0.48 MB
Время: 0.026 c
1-81753
GameR
2003-08-09 12:24
2003.08.25
Чё то таймер в компоненте глючит!!!!!!!!!А-а-а-а!


14-81881
ZeroDivide
2003-08-05 10:25
2003.08.25
Что за белая точка, в правом верхнем углу рядом с домиком?


1-81752
Yanis
2003-08-09 17:18
2003.08.25
Hint


3-81550
dd
2003-07-30 14:22
2003.08.25
регистрация сервера и пользователей


3-81571
abc
2003-07-30 15:15
2003.08.25
TDataSetProvider+TClientDataSet не удаётся установить связь