Пароль для входа в программу

[foxes]

ВСЁ разобрался

[Дашкевна]

Neeter

я совсем новичек в этом деле,вроде бы сделала всё,как ты писал,объясни пожалуйсто,что это за ошибки и как их исправить.

unit Unit2;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons;

type
  TPasswordDlg = class(TForm)
    Label1: TLabel;
    Password: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;

    procedure OKBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    ok: boolean;
  public
    { Public declarations }
  end;

var
  PasswordDlg: TPasswordDlg;

implementation

uses Unit1;

{$R *.dfm}


procedure TPasswordDlg.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 if not ok then
  Application.Terminate;
end;


 procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
 if Password.Text = '123' then
 begin
  Form1.Show;
  ok := true;
  Close;
 end 
 else
 begin
MessageDlg(' Пароль не верен! '+#13+#10
    +'Попробуйте еще раз.', mtWarning , [mbOK], 0);
end;
 end;
procedure TPasswordDlg.FormCreate(Sender: TObject);
begin
ok := false;
end;

end.

[r9m]

Дашкевна, а какие ошибки? Что компилятор пишет?

[vovk]

при такой постановке я бы наверно в модуле проекта както так сделал

 program Project1;
 
uses Forms,PassWord,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
begin
    with TPasswordDlg.Create(Application) do
 begin
  try
    ShowModal;
   while (ModalResult=1) and (Password.Text<>'да') do
      ShowModal;
   if ModalResult<>1 then Application.Terminate
  finally
    Free;
  end;
 end;  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Дашкевна]

r9m

Дашкевна, а какие ошибки? Что компилятор пишет?

выдает вот эти ошибки

[Error] Unit2.pas(53): Undeclared identifier: 'MessageDlg'
[Error] Unit2.pas(54): Undeclared identifier: 'mtWarning'
[Error] Unit2.pas(54): Undeclared identifier: 'mbOK'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit2.pas'

vovk

при такой постановке я бы наверно в модуле проекта както так сделал



Код:

uses program Project1;

Forms,PassWord,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
begin
with TPasswordDlg.Create(Application) do
begin
try
ShowModal;
while (ModalResult=1) and (Password.Text<>'да') do
ShowModal;
if ModalResult<>1 then Application.Terminate
finally
Free;
end;
end; Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

объясни пожалуйсто для чего именно этот код

[vovk]

Ну как раз для того при запуске приложеня спросить пароль, если пароль верный продолжить выполнение, если неверный опять спросить, если отказываемся вводить завершить приложение.
На счёт ошибок, надо в Uses добавить Messages

аа забыл ещё Dialogs, тоже в Uses добавить


я там чуть переправил
в начале естественно не так

uses program Project1;

Forms,PassWord,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
...............

а так

program Project1;

uses Forms,PassWord,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
...............

[Дашкевна]

vovk

спасибо большое,очень помог!!!

еще у меня вот такая проблемка выскакивает при запуске



картинка почему-то не открывается,вот ссылка на нее:
http://www.fayloobmennik.net/28401

[vovk]

скорее всего форма не создаётся автоматически, пожтому её либо надо создать динамически либо добавит в автосоздоваемые.
нажми в дельфи Project>View Source откорется окошка проекта, выложи всё что там написано.

[Дашкевна]

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {PasswordDlg};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TPasswordDlg, PasswordDlg);
  Application.Run;
end.

я добавила

begin
with TPasswordDlg.Create(Application) do
begin
try
ShowModal;
while (ModalResult=1) and (Password.Text<>'да') do
ShowModal;
if ModalResult<>1 then Application.Terminate
finally
Free;
end;
end;Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TPasswordDlg , PasswordDlg);
Application.Run;
end.

и он запускает только форму с паролм а потом выходит,главную форму он не запускает,после так же как и как и на прошлой картинке ругается на PasswordDlg.ShowModal;
еще форма с паролем закрывается от нажатия на крстик

[vovk]

ну конечно, ты обращаешся к PasswordDlg тогда когда он ещё не создан...

попробуй как я говорил замени всё что у тебя там на

program Project1;

uses
  Forms, messages,dialogs,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {PasswordDlg};

{$R *.res}

begin
with TPasswordDlg.Create(Application) do
  begin
    try
       ShowModal;
     while (ModalResult=1)  and (Password.Text<>'123') do
      begin
         MessageDlg(' Пароль не верен! '+#13+#10
         +'Попробуйте еще раз.', mtWarning , [mbOK], 0);
          ShowModal;
       end;
      if ModalResult<>1 then Application.Terminate
     finally
      Free;
     end;
   end; 
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

а все процедуры по кнопкам в окне пасворд диалога очисть, и не забуть вернуть кнопкам modalresult, кнопке ок mrOk, а Cancel mrCancel, хотя на cancel можно любой модалрезульт отличный от ноне и ок


а да и в онкреат Form1 удали PasswordDlg.Showmodal