promptform.pas

来自「著名的SecureBlackBox控件完整源码」· PAS 代码 · 共 47 行

unit PromptForm;

interface

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

type
  TfrmPrompt = class(TForm)
    lblPrompt: TLabel;
    edtResponse: TEdit;
    btnOk: TButton;
    btnCancel: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrompt: TfrmPrompt;

function Prompt(const Request : string; ShowResponse : boolean; var Response : string) : boolean;

implementation

{$R *.DFM}

function Prompt(const Request : string; ShowResponse : boolean; var Response : string) : boolean;
begin
  frmPrompt := TfrmPrompt.Create(nil);
  try
    frmPrompt.lblPrompt.Caption := Request;
    if not ShowResponse then
      frmPrompt.edtResponse.PasswordChar := '*';

    result := frmPrompt.ShowModal  = mrOk;
    if Result then
      Response := frmPrompt.edtResponse.Text;
  finally
    FreeAndNil(frmPrompt);
  end;
end;

end.