| Class TForm1 (unit PDTray1) |
TForm
Message being passed to tray icon
| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure TrayMessage(var Msg: TMessage);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;