connpropsform.pas

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

unit ConnPropsForm;

interface

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

type
  TfrmConnProps = class(TForm)
    gbConnProps: TGroupBox;
    btnOK: TButton;
    btnCancel: TButton;
    lHost: TLabel;
    editHost: TEdit;
    lUsername: TLabel;
    editUsername: TEdit;
    lPassword: TLabel;
    editPassword: TEdit;
    lbPrivateKey: TLabel;
    edPrivateKey: TEdit;
    sbPrivateKey: TSpeedButton;
    OpenDialog: TOpenDialog;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure sbPrivateKeyClick(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.FormShow(Sender: TObject);
begin
  editPassword.Text := '';
end;

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

end.