pass.pas

来自「从文档管理升华到知识管理文档是知识的容器」· PAS 代码 · 共 52 行

unit pass;

interface

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

type
  TPasswordDlg = class(TForm)
    Label1: TLabel;
    Password: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    Label2: TLabel;
    procedure OKBtnClick(Sender: TObject);
    procedure PasswordKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PasswordDlg: TPasswordDlg;

implementation
uses  main,dict;
{$R *.dfm}

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
 if Password.Text='haha' then
  begin
   Application.CreateForm(TdictForm, DictForm);
   Dictform.Show;
  // PasswordDlg.Close;
  end
 else
  showmessage('口令输入错误，不能进入');
end;

procedure TPasswordDlg.PasswordKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (key=vk_F1) then
   label2.Caption:='haha';
end;

end.