Форум: "Основная";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
ВнизВывод окна перед запуском приложения Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.038 c