TSysMenu

This VCL allows the user to easily add menu items to the
system menu of their programs.  In addition, upon selecting
one of the added menu items, an event will be fired, passing
a string containing the text of the menu item selected.

PROPERTIES

InsertBefore:     This is the position on the system menu at 
                  which you want the new menu items placed. A
                  value of -1 places the new items at the end

MenuItems:        This is a TStringList containing the menu 
                  items you wish to add to the system menu. A
                  "-" character denotes a seperator bar.

StartID:          Each menu item must be assigned a unique ID#.
                  The StartID denotes the number to use for the
                  first menu item; each item thereafter is 
                  incremented by one.

EVENTS

OnFireMenu:       This event is fired when one of the added menu
                  items has been selected.  A string will be 
                  passed to this event in the variable 
                  MenuCaption that contains the text of the menu
                  item selected.


Installing TSysMenu

To install this VCL, copy both SYSMENU.DCU and SYSMENU.DCR to the
directory where you have your other shareware controls.  Then, 
from Delphi's main menu, select Options|Install Components.  In the
dialog, click on the Add... button, then Browse... and change to the 
drive/directory where you stored the above two files.  Select 
SYSMENU.DCU and click OK, then OK again.

Using TSysMenu

To use this control, simply place it on your form, and edit the 
MenuItems property to contain the menu items you wish to add.

Example:

-
&About...
&Help

In the above example, the hyphen will be a seperator bar, followed 
by two menu items.  Now change the InsertBefore property to 5.  This
will insert the new menu before the 5th menu entry in the system
menu (this menu is zero-based, so the first entry is zero, and so on).

Now your menu should look like this:

Restore
Move
Size
Minimize
Maximize
-----------
About...
Help
-----------
Close

Double-click on the SysMenu control to edit its OnFireMenu event and
alter its code as follows:

procedure TForm1.SysMenu1FireMenu(Sender: TObject; MenuCaption: String);
begin
     If MenuCaption = '&About...' then
          {code here to handle this event...}
     else If MenuCaption = '&Help' then
          {code here to handle this event...};
end;

Support:

Send comments and questions to:

Zane Rathwick
Indigo Software

CIS: 74633,1314
AOL: ZaneR
Internet:   ZaneR@aol.com
U.S. Mail:  Zane Rathwick
            Indigo Software
            4240 Park Newport Suite 308
            Newport Beach, CA 92660

Registering TSysMenu

To register TSysMenu and receive source code, send $10 (+$2 S&H) to:

Indigo Software
4240 Park Newport # 308
Newport Beach, CA 92660

You can save the $2 shipping fee by specifying a Compuserve or AOL 
account to have your control sent to instead of by mail.