Class TForm1 (unit PDTray1)

Inherits from

TForm

Message being passed to tray icon

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);

Removes icon (if it exists) and disables timer

procedure BitBtn3Click(Sender: TObject);

Adds the icon to tray

procedure BitBtn4Click(Sender: TObject);

Enables the timer to start animation

procedure BitBtn5Click(Sender: TObject);

If the right or left button is pressed then we display a message} {If parameter auto used then we make form1 visible and show the} {program in the taskbar

procedure FormClose(Sender: TObject; var Action: TCloseAction);

Hide the main form, show the tray icon and hide app from taskbar

procedure FormCreate(Sender: TObject);

Disables the timer to stop animation

procedure Timer1Timer(Sender: TObject);

Initialize the variable.

procedure TrayMessage(var Msg: TMessage);

Private declarations } {The tray procedure to look for mouse input

Increment variable I by 1.


Properties

Events

Variables

BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


BitBtn5 : TBitBtn;


Image1 : TImage;


Image2 : TImage;


Image3 : TImage;


Image4 : TImage;


Image5 : TImage;


Image6 : TImage;


Timer1 : TTimer;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);

Removes icon (if it exists) and disables timer


procedure BitBtn3Click(Sender: TObject);

Adds the icon to tray


procedure BitBtn4Click(Sender: TObject);

Enables the timer to start animation


procedure BitBtn5Click(Sender: TObject);

If the right or left button is pressed then we display a message} {If parameter auto used then we make form1 visible and show the} {program in the taskbar


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Hide the main form, show the tray icon and hide app from taskbar


procedure FormCreate(Sender: TObject);

Disables the timer to stop animation


procedure Timer1Timer(Sender: TObject);

Initialize the variable...} {The auto parameter tells it to create the icon on startup


procedure TrayMessage(var Msg: TMessage);

Private declarations } {The tray procedure to look for mouse input

Increment variable I by 1...


Properties


Events


Variables


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


BitBtn5 : TBitBtn;


Image1 : TImage;


Image2 : TImage;


Image3 : TImage;


Image4 : TImage;


Image5 : TImage;


Image6 : TImage;


Timer1 : TTimer;