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

[Brook]

Здравствуйте всем!
В программе, используя PasswordDlg, хочу сделать проверку на правильность ввода пароля. Подскажите пожалуйста, где и как нужно организовать код, чтобы в случае ввода неверного пароля, выводилось сообщение об этом, а само окно продолжало бы "висеть". А то у меня получается, что либо сразу главная форма появляется, либо, наоборот, программа целиком закрывается.

Вот, что сделано:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  PasswordDlg := TPasswordDlg.Create(Self);
end;

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
var
  passw: string;
begin
  if Password.Text <> passw then
    begin
      MessageDlg('   Пароль не верен! '+#13+#10
                 +'Попробуйте еще раз.', mtWarning, [mbOK], 0);

    end
    else
      begin
        MainForm.Show;
      end;
end;

[Neeter]

Можно сделать перестановку в исходнике проекта
Нажмите Project\View Source... в меню

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TPasswordDlg, PasswordDlg);  //Тут следующая и эта строчка были поменены местами
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

В кнопке ОК диалога:

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

Только теперь главная форма приложения окно с диалогом, так что в onClose первой формы нужно писать:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Application.Terminate;
end;

Это только как вариант.


Еще лучше, без перестановок(если уже сделали, то поменяйте местами обратно), просто в событии onShow формы прописать:

 PasswordDlg.ShowModal;

Код кнопки тот же оставить что и вверху.
в onClose не надо писать Application.Terminate

[Brook]

уже сделала с перестановкой - все работает как часы)))) Спасибо. Сейчас для расширения кругозора попробую второй вариант

[Neeter]

Второй лучше, там главная форма остается главной
Просто додумался поздно)

[Brook]

Без перестановки получается, что при вводе неверного пароля выводится сообщение об этом, и потом сразу же открывается главная форма.

[Neeter]

У кнопок OK и Cancel свойство ModalResult перемените в mrNone
Просто если это свойство равно чему нибудь другому, то форма автоматически закрывается

Еще создайте переменную в секции private диалога

  private
    { Private declarations }
    ok: boolean;
  public
    { Public declarations }
  end;

В onCreate присвойте ей false

procedure TPasswordDlg.FormCreate(Sender: TObject);
begin
 ok := false;
end;

Измените код нажатия на кнопку OK:

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;

И в onClose диалога напишите:

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

Это надо писать, чтобы нельзя было просто выключить диалог на крестик и перейти к главной форме

[Brook]

Супер! Работает, как задумывалось.
Спасибо большое))))

[Neeter]

Незачто, удачи в программировании!

[EugeneIsmatulin]

Хороший пример спасибо!

[foxes]

Neeter
Я в роди всё сделаю как вы писали, ну у меня ничего не вышла, пишет что там ошибка, я думаю не в коде ошибка, а у меня руки кривые, помогите разобраться.

unit PASSWORD;

interface

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

type
  TPasswordDlg = class(TForm)
    Label1: TLabel;
    Password: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  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.FormCreate(Sender: TObject);
begin
ok := false;
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.