Class TForm1 (unit Main)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure Exit1Click(Sender: TObject);

Show the application

procedure FormCreate(Sender: TObject);

Save the Startup up preference in the following INI file.

procedure HideDemo1Click(Sender: TObject);

Quit the application

procedure ShowDemo1Click(Sender: TObject);

Show the application

procedure StartInSystemTrayClick(Sender: TObject);

Close the appliation.

procedure TrayIconClick(Sender: TObject);

If the application should be shown normally, show it.

Properties

Events

Variables

Button1 : TButton;


Exit1 : TMenuItem;


HideDemo1 : TMenuItem;


Label1 : TLabel;


Memo1 : TMemo;


N1 : TMenuItem;


PopupMenu1 : TPopupMenu;


ShowDemo1 : TMenuItem;


StartInSystemTray : TCheckBox;


TrayIcon : TPGTrayIcon95;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure Exit1Click(Sender: TObject);

Show the application


procedure FormCreate(Sender: TObject);

Save the Startup up preference in the following INI file. This will } { be used in the Forms OnCreate event when the application is restarted.


procedure HideDemo1Click(Sender: TObject);

Quit the application


procedure ShowDemo1Click(Sender: TObject);

Show the application


procedure StartInSystemTrayClick(Sender: TObject);

Close the appliation.


procedure TrayIconClick(Sender: TObject);

If the application should be shown normally, show it. If the application } { was supposed to start hidden, we don't have to do anything, since it } { was already hidden by the changes that were made to the Project Source.


Properties


Events


Variables


Button1 : TButton;


Exit1 : TMenuItem;


HideDemo1 : TMenuItem;


Label1 : TLabel;


Memo1 : TMemo;


N1 : TMenuItem;


PopupMenu1 : TPopupMenu;


ShowDemo1 : TMenuItem;


StartInSystemTray : TCheckBox;


TrayIcon : TPGTrayIcon95;