Class TSaverForm (unit Main)

Inherits from

TForm

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


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