//---------------------------------------------------------------------------
//(R)CopyRight KivenSoft International ,inc 1999
//單元名稱：口令對話框
//程序名稱：電子書庫
//作    者：李會文
//開始時間：1998.07.28
//最后修改：1999.06.25
//備注：此單元定義了SRM文件的讀寫接口
//---------------------------------------------------------------------------
unit InputPw;

interface

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

type
  TInPwForm = class(TForm)
    Edit: TEdit;
    CancelSpeedButton: TSpeedButton;
    OkSpeedButton: TSpeedButton;
    Bevel1: TBevel;
    InputLabel: TKvLabel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure CancelSpeedButtonClick(Sender: TObject);
    procedure OkSpeedButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InPwForm: TInPwForm;

implementation

{$R *.DFM}

procedure TInPwForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then OkSpeedButtonClick(self);
  if Key=#27 then CancelSpeedButtonClick(self);
end;

procedure TInPwForm.CancelSpeedButtonClick(Sender: TObject);
begin
  Edit.Text:='';
  ModalResult:=mrCancel;
end;

procedure TInPwForm.OkSpeedButtonClick(Sender: TObject);
begin
  ModalResult:=mrOk;
end;

procedure TInPwForm.FormCreate(Sender: TObject);
begin
  CancelSpeedButton.Glyph.LoadFromResourceName(HInstance,'CANCELBMP');
  OkSpeedButton.Glyph.LoadFromResourceName(HInstance,'OKBMP');
end;

end.