Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c