setpasswordform.pas

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

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.