| Class TScrn (unit Ssave) |
TForm
| Constructors |
| Functions |
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);Move it, and trigger again
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Procedure DoSs(Var WinMsg : TMessage);
Procedure GetPassword;No Float
Procedure GetPwd(Var WinMsg : TMessage);Work on SS Type
Procedure OnTop(TopMost : Boolean);Get a password
procedure Trigger(Sender : TObject; Var Done : Boolean);Set the OnIdle Proc
| Properties |
| Events |
| Variables |
Image : TImage;
LoadingApp : Boolean;
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;