| Class TSaverForm (unit Main) |
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);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure CreateParams(var Params: TCreateParams);
procedure SafeExit;
procedure WndProc(var Message: TMessage);| Properties |
| Events |
| Variables |
Timer1 : TTimer;
ptMpos : TPoint;| Constructors |
| Functions |
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);TSaverForm code
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);switch off the capture to the form
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormShow(Sender: TObject);set this form as the capture control
procedure Timer1Timer(Sender: TObject);
procedure CreateParams(var Params: TCreateParams);
procedure SafeExit;
procedure WndProc(var Message: TMessage);call the inherited first
| Properties |
| Events |
| Variables |
Timer1 : TTimer;
ptMpos : TPoint;Private declarations