Class TForm1 (unit PDTray1) |
Inherits from
TForm
Message being passed to tray icon
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 inputIncrement variable I by 1.
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn3 : TBitBtn;
BitBtn4 : TBitBtn;
BitBtn5 : TBitBtn;
Image1 : TImage;
Image2 : TImage;
Image3 : TImage;
Image4 : TImage;
Image5 : TImage;
Image6 : TImage;
Timer1 : TTimer;
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...
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn3 : TBitBtn;
BitBtn4 : TBitBtn;
BitBtn5 : TBitBtn;
Image1 : TImage;
Image2 : TImage;
Image3 : TImage;
Image4 : TImage;
Image5 : TImage;
Image6 : TImage;
Timer1 : TTimer;