rasdial5.pas

来自「< Delphi网络通信协议分析与应用实现>>一书的源代码。」· PAS 代码 · 共 50 行

unit RasDial5;

interface

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

type
  TTimePasswordAutoForm = class(TAutoForm)
    PasswordEdit: TEdit;
    Label1: TLabel;
    OkButton: TButton;
    procedure OkButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function Execute : Integer;
  end;

var
  TimePasswordAutoForm: TTimePasswordAutoForm;

implementation

{$R *.DFM}


{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
procedure TTimePasswordAutoForm.OkButtonClick(Sender: TObject);
begin
    ModalResult := mrOK;
end;


{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
function TTimePasswordAutoForm.Execute : Integer;
begin
    ActiveControl := PasswordEdit;
    Result        := ShowModal;
end;


{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}

end.

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}