Class TWpwd (unit Getpass)

Inherits from

TForm

Constructors



Functions

procedure CancelClick(Sender: TObject);

Set the caption to tell about server and name

procedure FormCreate(Sender: TObject);

Pwd Ok bye bye screensaver

procedure OkClick(Sender: TObject);


procedure TicTocTimer(Sender: TObject);

Bye Bye

procedure WinPwdChange(Sender: TObject);

Ta Ta

Properties

Events

Variables

Cancel : TBitBtn;


L : TLabel;


L2 : TLabel;


Ok : TBitBtn;


TicToc : TTimer;


WinPwd : TEdit;


PwdOk : Boolean;

Private declarations

Loading : Boolean;



Constructors


Functions


procedure CancelClick(Sender: TObject);

Set the caption to tell about server and name


procedure FormCreate(Sender: TObject);

Pwd Ok bye bye screensaver


procedure OkClick(Sender: TObject);


procedure TicTocTimer(Sender: TObject);

Bye Bye


procedure WinPwdChange(Sender: TObject);

Ta Ta


Properties


Events


Variables


Cancel : TBitBtn;


L : TLabel;


L2 : TLabel;


Ok : TBitBtn;


TicToc : TTimer;


WinPwd : TEdit;


PwdOk : Boolean;

Private declarations


Loading : Boolean;