Inherits from
TForm
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
Image : TImage;
LoadingApp : Boolean;
Private declarations
ptMpos : TPoint;
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
Image : TImage;
LoadingApp : Boolean;
Private declarations
ptMpos : TPoint;