connpropsform.pas

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

unit ConnPropsForm;

interface

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

type
  TfrmConnProps = class(TForm)
    gbConnProps: TGroupBox;
    lHost: TLabel;
    editHost: TEdit;
    lPort: TLabel;
    editPort: TEdit;
    cbSSL2: TCheckBox;
    cbSSL3: TCheckBox;
    cbTLS1: TCheckBox;
    lCert: TLabel;
    editCert: TEdit;
    btnOK: TButton;
    btnCancel: TButton;
    cbPassive: TCheckBox;
    lPassword: TLabel;
    editCertPassword: TEdit;
    cbClear: TCheckBox;
    OpenDialog: TOpenDialog;
    cbTLS11: TCheckBox;
    lblAuthCmd: TLabel;
    comboAuthCmd: TComboBox;
    cbUseSSL: TCheckBox;
    cbImplicit: TCheckBox;
    Label1: TLabel;
    editUsername: TEdit;
    Label2: TLabel;
    editPassword: TEdit;
    btnBrowseCert: TButton;
    cbCompression: TCheckBox;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnBrowseCertClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConnProps: TfrmConnProps;

implementation

{$R *.DFM}

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

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

procedure TfrmConnProps.btnBrowseCertClick(Sender: TObject);
begin
  if OpenDialog.Execute then
    editCert.Text := OpenDialog.Filename;
end;

procedure TfrmConnProps.FormShow(Sender: TObject);
begin
  editPassword.Text := '';
end;

end.