setpasswordform.pas

来自「著名的SecureBlackBox控件完整源码」· PAS 代码 · 共 47 行

unit SetPasswordForm;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TfrmSetPassword = class(TForm)
    gbSetPassword: TGroupBox;
    lPass: TLabel;
    editPassword: TEdit;
    lPassConf: TLabel;
    editPasswordConf: TEdit;
    btnOK: TButton;
    btnCancel: TButton;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmSetPassword: TfrmSetPassword;
implementation
{$R *.DFM}

procedure TfrmSetPassword.btnOKClick(Sender: TObject);
begin
  if editPassword.Text = editPasswordConf.Text then
    ModalResult := mrOk
  else
    MessageDlg('Confirmation does not match password', mtError, [mbOk], 0);
end;

procedure TfrmSetPassword.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TfrmSetPassword.FormShow(Sender: TObject);
begin
  editPassword.Text := '';
  editPasswordConf.Text := '';
end;
end.