Rx Tray Icon

Description:
The TRxTrayIcon component enables 32-bit Delphi applications to add icons to the Windows 95 or Windows NT 4.x tray. The icon can be added to the tray by setting the Active property to true, and can be removed from the tray by setting the Active property to false.

The Icon property specifies static icon to the tray. If you want animate icons in the tray, set values to the Icons property and set the Animated property to True. You can test tray-icon in design-time by setting the ShowDesign property to True. To respond to mouse events for the icon, use the OnClick and OnDblClick events.

Note:
To display a pop-up menu when the user clicks the right mouse button on the Tray Icon, assign a PopupMenu component to the PopupMenu property and set the AutoPopup property of the menu to True.

To display a Help Hint whenever the mouse pointer pauses over the icon momentarily, set the Hint property to a help string.
You can use 16x16 icons with the TRxTrayIcon component as well as 32x32 icons.

Property Active
Declaration: Active: Boolean;

Set the Active property to True to add an Icon to the Windows 95 Tray.
Set the Active property to False to remove the Icon from the Windows 95 Tray.

If the Animated property is True, the Icons property used to show animation in the Tray,
if the Animated property is False, then icon specified by the Icon property used to show static icon in the Windows 95 Tray.

Property Animated
Declaration: Animated: Boolean;

The Animated property is used to show animated icons in Windows 95 Tray. The icons to be used in the animation are listed in the Icons property, and the time to wait between animation frames is specified by the Interval property.

Property Icons
Declaration: Icons: TIconList;

The Icons property is used to define the animation that will occur when a Tray Icon has Active property set to True and Animated property set to True also (if Animated property is False, the static Icon property use instead). The time to wait between animation frames is specified by the Interval property. The property editor of the Icons property allows you to load Windows animation cursors (ani-files) to this property.

Property ShowDesign
Declaration: ShowDesign: Boolean;

This property allows you to testing tray icon in design-time.
(This property is Ignored during run-time.)

Event OnClick
Declaration: OnClick: TMouseEvent;

To respond to mouse click events (left or right button) for the icon in Windows System Tray, use an OnClick event.

Type TExecState
Declaration: TExecState = (esNormal, esMinimized, esMaximized, esHidden);

TExecState type defines the four possible initial states of the launched applications main window for the InitialState parameter of FileExecute and FileExecuteWait functions: normal, minimized, maximized or hidden.

Routine FileExecute
Declaration: function FileExecute(const FileName, Params, StartDir: string; InitialState: TExecState): THandle;

The FileExecute function opens a specified file. The file can be an executable file or a document file. If FileName specifies an executable file, Params is a string that specifies parameters to be passed to the application. StartDir specifies the default directory. If FileName specifies an executable file, InitialState specifies how the application is to be shown

when it is opened. This parameter can be one of the following values: esNormal, esMinimized, esMaximized or esHide. If the function succeeds, the return value is the instance handle of the application that was run. If the function fails, the return value is an error value that is less than or equal to 32.

FileExecute example:
if FileExecute('NOTEPAD.EXE', '', 'C:\', esNormal) <= 32 then
ShowMessage('Can't start NOTEPAD.EXE');

Routine FileExecuteWait
Declaration: function FileExecuteWait(const FileName, Params, StartDir: string; InitialState: TExecState): Integer;

This function is similar to the FileExecute function, but it don't return until after a launched program finishes executing.

32-bit version: If the function succeeds, the return value is termination status of the executed process. If the function fails, the return value is -1.

16-bit version: If the function succeeds, the return value is zero. If the function fails, the return value is -1.

> FileExecuteWait example:

if not FileExecuteWait('NOTEPAD.EXE', 'readme.txt', 'C:\', esNormal) then
ShowMessage('Can not start NOTEPAD.EXE');

Routine IconExtract
Declaration: function IconExtract(const FileName: string; Id: Integer): TIcon;

The IconExtract function creates the TIcon object from the given executable file, dynamic-link library (DLL), or icon file. The FileName parameter specifies the name of an executable file, DLL, or icon file. The ID parameter specifies the index of the icon to retrieve. If this value is 0, the function returns the handle of the first icon in the specified file. If the function succeeds, the return value is the pointer to the Icon-object. After using the icon you must destroy it by Free method.

IconExtract example:

var
__Ico: TIcon;
begin
__Ico := IconExtract('PROGMAN.EXE', 0);
__try
____{ use icon }
__finally
____Ico.Free;
__end;
end;

Routine WinAbout
Declaration: procedure WinAbout(const AppName, Stuff: string);

The WinAbout procedure displays a Shell About dialog box.

Please note that the WinAbout procedure dialog box uses text and a default icon that are specific to either Microsoft Windows or Microsoft Windows NT. An example of a Shell About dialog box can be seen by selecting the About Program Manager command in Program Manager.

The AppName parameter is the text that the procedure displays in the title bar of the About dialog box and on the first line of the dialog box after the text "Microsoft Windows" or "Microsoft Windows NT". If the text contains a "#" separator, dividing it into two parts, the function displays the first part in the title bar, and the second part on the first line after the text "Microsoft Windows" or

"Microsoft Windows NT".

The Stuff parameter is the text that the function displays in the dialog box after the version and copyright information.

> WinAbout example:
WinAbout('Delphi Demo Application', 'Borland Int., 1995');

Index Page | About | Download
Creation Date: 4 Feb 1998 | Last Update: 16 Mar 2000