zippassword.pas

delphi 电子书阅读器 外观非常漂亮

{
模块名称：输入ZIP文件的密码

使用方法：1、Create
		  2、ShowModal

返回值：  1、mrOk：     确定
		  2、mrCancel： 放弃
		  3、EditPassword： ZIP文件密码
}

unit ZipPassword;

interface

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

type
  TFormZipPassword = class(TForm)
    GroupBox1: TGroupBox;
    EditPassword: TEdit;
    BtnOk: TButton;
	BtnCancel: TButton;

    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormZipPassword: TFormZipPassword;

implementation

uses
	Global;

{$R *.DFM}

procedure TFormZipPassword.FormCreate(Sender: TObject);
begin
	//多语言文字
	Self.Font.Charset := GetCharset;

	Self.Caption := GetWord('输入密码');

	GroupBox1.Caption := GetWord('输入ZIP文件的密码');
	BtnOk.Caption := GetWord('确定');
	BtnCancel.Caption := GetWord('取消');
end;

procedure TFormZipPassword.FormShow(Sender: TObject);
begin
	EditPassword.Text := '';
	EditPassword.SetFocus;
end;

end.