connectionpropertiesform.pas

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

unit ConnectionPropertiesForm;

interface

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

type
  TfrmConnectionProperties = class(TForm)
    btnOK: TButton;
    btnCancel: TButton;
    gbConnProps: TGroupBox;
    lbHost: TLabel;
    lbUsername: TLabel;
    lbPassword: TLabel;
    edHost: TEdit;
    edUsername: TEdit;
    edPassword: TEdit;
    lbPort: TLabel;
    edPort: TEdit;
    cbSSHv2: TCheckBox;
    cbSSHv1: TCheckBox;
    lbProtocolVersion: TLabel;
    lbPrivateKey: TLabel;
    edPrivateKey: TEdit;
    sbPrivateKey: TSpeedButton;
    OpenDialog: TOpenDialog;
    procedure edPortKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure sbPrivateKeyClick(Sender: TObject);
  private
  public
  end;

var
  frmConnectionProperties: TfrmConnectionProperties;

implementation

{$R *.dfm}

procedure TfrmConnectionProperties.edPortKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (Key in ['0'..'9']) then
    Key := #0; 
end;

procedure TfrmConnectionProperties.FormShow(Sender: TObject);
begin
  edPassword.Text := '';
end;

procedure TfrmConnectionProperties.sbPrivateKeyClick(Sender: TObject);
begin
  if OpenDialog.Execute then
    edPrivateKey.Text := OpenDialog.Filename;
end;

end.