Password.pas
上传用户:mjqmds
上传日期:2022-05-05
资源大小:2827k
文件大小:1k
源码类别:

DirextX编程

开发平台:

Delphi

  1. unit Password;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, TFlatButtonUnit, StdCtrls, TFlatEditUnit;
  6. type
  7.   TPForm = class(TForm)
  8.     Label1: TLabel;
  9.     FlatEdit1: TFlatEdit;
  10.     FlatButton1: TFlatButton;
  11.     procedure FlatButton1Click(Sender: TObject);
  12.     procedure FormCreate(Sender: TObject);
  13.   private
  14.     { Private declarations }
  15.   public
  16.     Password:String;
  17.     { Public declarations }
  18.   end;
  19. var
  20.   PForm: TPForm;
  21. implementation
  22. {$R *.dfm}
  23. procedure TPForm.FlatButton1Click(Sender: TObject);
  24. begin
  25.     Password:=FlatEdit1.Text;
  26.     ModalResult:=mrOk;
  27. end;
  28. procedure TPForm.FormCreate(Sender: TObject);
  29. begin
  30.     Password:=FlatEdit1.Text;
  31. end;
  32. end.