Class TScreenForm (unit Main) |
Inherits from
TForm
This unit contains the code for the screen saver's main form which is a
borderless black window which covers the entire screen. The screen saver
displays one or more "spotlights" which move around on the screen. The
code for the spotlights is contained in the Spots unit. The form closes
when the user presses a key, clicks a mouse button, or moves the mouse.
procedure FormActivate(Sender: TObject);
And free the list itself
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
Set application's OnIdle event handler to DoScreenSaver
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 DoScreenSaver(Sender: TObject; var Done: Boolean);
The form receives a MouseMove event when it is activated
MouseAlreadyMoved : Boolean;
Private declarations
SpotList : TList;
procedure FormActivate(Sender: TObject);
And free the list itself
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
Set application's OnIdle event handler to DoScreenSaver
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 DoScreenSaver(Sender: TObject; var Done: Boolean);
The form receives a MouseMove event when it is activated
MouseAlreadyMoved : Boolean;
Private declarations
SpotList : TList;