keyringloadform.pas

著名的SecureBlackBox控件完整源码

unit KeyringLoadForm;

interface

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

type
  TfrmKeyringLoad = class(TForm)
    lblPublicKeyring: TLabel;
    editPubKeyring: TEdit;
    lblSecretKeyring: TLabel;
    editSecKeyring: TEdit;
    btnBrowsePub: TButton;
    btnBrowseSec: TButton;
    btnOK: TButton;
    btnCancel: TButton;
    OpenDialog: TOpenDialog;
    procedure btnBrowsePubClick(Sender: TObject);
    procedure btnBrowseSecClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmKeyringLoad: TfrmKeyringLoad;

implementation

{$R *.DFM}

procedure TfrmKeyringLoad.btnBrowsePubClick(Sender: TObject);
begin
  if OpenDialog.Execute then
    editPubKeyring.Text := OpenDialog.Filename;
end;

procedure TfrmKeyringLoad.btnBrowseSecClick(Sender: TObject);
begin
  if OpenDialog.Execute then
    editSecKeyring.Text := OpenDialog.Filename;
end;

procedure TfrmKeyringLoad.btnOKClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TfrmKeyringLoad.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.