Class TScrn (unit Ssave)

Inherits from

TForm

Constructors



Functions

procedure FormActivate(Sender: TObject);

We are Loading

procedure FormClose(Sender: TObject; var Action: TCloseAction);

Get Password

procedure FormCreate(Sender: TObject);

Get the Password

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

True If Loading

Move it, and trigger again


procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Capture the Mouse

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Get the Password

Procedure DoSs(Var WinMsg : TMessage);

The mouse position

Procedure GetPassword;

Get The Password

No Float


Procedure GetPwd(Var WinMsg : TMessage);

Trigger Message

Work on SS Type


Procedure OnTop(TopMost : Boolean);

On Idle Trigger

Get a password


procedure Trigger(Sender : TObject; Var Done : Boolean);

Get password, if any

Set the OnIdle Proc


Properties

Events

Variables

Image : TImage;


LoadingApp : Boolean;

Private declarations

ptMpos : TPoint;



Constructors


Functions


procedure FormActivate(Sender: TObject);

We are Loading


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Get Password


procedure FormCreate(Sender: TObject);

Get the Password


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

True If Loading

Move it, and trigger again


procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Capture the Mouse


procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Get the Password


Procedure DoSs(Var WinMsg : TMessage);

The mouse position


Procedure GetPassword;

Get The Password

No Float


Procedure GetPwd(Var WinMsg : TMessage);

Trigger Message

Work on SS Type


Procedure OnTop(TopMost : Boolean);

On Idle Trigger

Get a password


procedure Trigger(Sender : TObject; Var Done : Boolean);

Get password, if any

Set the OnIdle Proc


Properties


Events


Variables


Image : TImage;


LoadingApp : Boolean;

Private declarations


ptMpos : TPoint;