getcert.pas

来自「这是一套全面的网络组件」· PAS 代码 · 共 42 行

unit getcert;

interface

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

type
  TGetCertDialog = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edtEmail: TEdit;
    edtStore: TEdit;
    btnOK: TButton;
    btnMessage: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
  public
  end;

var
  GetCertDialog: TGetCertDialog;
  DefaultEmail: string = '[e-mail]';

implementation

{$R *.dfm}

procedure TGetCertDialog.FormCreate(Sender: TObject);
begin
  edtEmail.Text := DefaultEmail;
end;

procedure TGetCertDialog.FormDestroy(Sender: TObject);
begin
  DefaultEmail := edtEmail.Text;
end;

end.