unit ScLicenseCodeFrm;

interface

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

type
  TLicenseCodeForm = class(TForm)
    btnCancel: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    btnOk: TButton;
    procedure btnOkClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);

  private
    procedure Init(ACode: string);
  public
    { Public declarations }
  end;

function ShowLicenseCode(ACode: string): Boolean;
{var
  Form2: TLicenseCodeForm; }

implementation

{$R *.dfm}

function ShowLicenseCode(ACode: string): Boolean;
var
  Form: TLicenseCodeForm;
begin
  Form := TLicenseCodeForm.Create(nil);
  try
    Form.Init(ACode);
    if Form.ShowModal = mrOk then
      Result := True;
  finally
    Form.Free;
  end;
end;



{ TLicenseCodeForm }

procedure TLicenseCodeForm.Init(ACode: string);
begin
  Label1.Caption := '您的申请已经成功提交，请记录您的授权码。' + #13#10 +
    '第一次登录网络版时，需输入授权码，请您妥善保管！' + #13#10 +
      '是否复制授权码？';
  Edit1.Text := ACode;
end;

procedure TLicenseCodeForm.btnOkClick(Sender: TObject);
begin
  Edit1.SelectAll;
  Edit1.CopyToClipboard;
  ModalResult := mrOk;
end;

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

end.