pwunit.pas

来自「发射台 控制台 dephi编写 大家可以随便可看看, 可以做dephi入门实例」· PAS 代码 · 共 56 行

unit PWUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;

type
  TFrmPW = class(TForm)
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPW: TFrmPW;

implementation
uses MainUnit;
{$R *.dfm}

procedure TFrmPW.Button1Click(Sender: TObject);
begin
  if self.MaskEdit1.Text <> FrmMain.pw then
    begin
      ShowMessage('口令不正确!');
      exit;
    end;
  FrmMain.IsPWCorrect := 1;
  self.Close;
end;

procedure TFrmPW.Button2Click(Sender: TObject);
begin
  FrmMain.IsPWCorrect := 0;
  self.Close;
end;

procedure TFrmPW.FormShow(Sender: TObject);
begin
  self.MaskEdit1.Text := '' ;
  self.MaskEdit1.SetFocus;
  self.FormStyle := fsStayOnTop;
end;

end.