📄 cooltrayicon.html
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>CoolTrayIcon, ver. 4.4.0</title>
<style type='text/css'>
/* body { font-family: MS Sans Serif; font-size: 12pt; } */
h1 { font: bold 14pt Arial; margin-bottom: 10px; }
h2 { font: bold 12pt Arial; margin-bottom: 10px; margin-top: 40px; }
td.name { background-color: #FFFFC0; width: 120px; font-weight: bold; }
td.name2 { background-color: #FFCCCC; width: 120px; font-weight: bold; }
td.desc { background-color: #F0F0F0; }
td.default { background-color: #F0F0F0; }
ul { margin-left: 15px; margin-top: 5px; }
li { margin-bottom: 10px; }
.declaration { font-weight: bold; }
</style>
</head>
<body topmargin='15' bottommargin='15' leftmargin='10' rightmargin='10'>
<a name='Top'><h1>CoolTrayIcon, ver. 4.4.0</h1>
<a href='#Properties'>[Properties]</a> <a href='#Methods'>[Methods]</a> <a href='#Events'>[Events]</a>
<br>
<a href='#Hints'>[Hints]</a> <a href='#Bugs'>[Known Bugs]</a> <a href='#Comments'>[Comments]</a>
<br>
<p>
CoolTrayIcon is a tray icon component. It allows you to easily implement tray icons
in your own applications, with various appearances and behaviors.
</p>
<!--
<p>
CoolTrayIcon can be used in a service. See my <a href='#Service'>developer remarks</a> on services.
</p>
-->
<a name='Properties'></a><h2>Properties</h2>
<table cellpadding='2' cellspacing='2' border='0' width='100%'>
<tr>
<td class='name' valign='top'>Icon</td>
<td class='desc' valign='top'><span class='declaration'>property Icon: TIcon;</span><br>
The icon to display in the tray. This icon is 16x16 pixels and can be up to 16 colors (4 bit)
in Win9x and WinNT 4, 4 billion colors (32 bit) in WinXP, and WinME and Win2000
support icons of a color depth up to the user's display mode. I don't know about
Win2003 and Vista, but my guess is 32 bit support.
If you use an icon file (*.ico) containing more than one icon, Delphi will use the first icon.
If it's not 16x16 pixels it will be scaled, which probably won't look good.<br>
<!--
<b>NOTE:</b> Assigning a new TIcon object to Icon will cause the icon in the tray
to redraw. However, this is not the case if you change Icon through the TIcon.Assign
method, or change it through TIcon.Handle. In those cases you must call the method
Refresh (see below) to redraw it.
-->
</td>
<td class='default' valign='top' nowrap><br></td>
</tr>
<tr>
<td class='name' valign='top'>IconVisible</td>
<td class='desc' valign='top'><span class='declaration'>property IconVisible: Boolean;</span><br>
Whether to display the icon. This property has no effect in design mode.</td>
<td class='default' valign='top' nowrap>Default false</td>
</tr>
<tr>
<td class='name' valign='top'>Hint</td>
<td class='desc' valign='top'><span class='declaration'>type THintString = ShortString;<br>
property Hint: THintString;</span><br>
The tray icon's hint (max 128 chars), which is displayed when you move the mouse cursor
over the tray icon. Use #13 as a separator in multi-line hints.<br>
<b>NOTE:</b> WinNT doesn't appear to support multi-line hints.<br>
<b>NOTE:</b> On some older Windows versions (before IE 5) the hint is max 64 chars.<br>
<b>NOTE:</b> The time until the hint window closes is determined by Windows,
so don't bother trying to change the interval, because you can't. Setting
Application.HintPause and Application.HintHidePause has no effect.
</td>
<td class='default' valign='top' nowrap><br></td>
</tr>
<tr>
<td class='name' valign='top'>ShowHint</td>
<td class='desc' valign='top'><span class='declaration'>property ShowHint: Boolean;</span><br>
Whether to show the hint.</td>
<td class='default' valign='top' nowrap>Default true</td>
</tr>
<tr>
<td class='name' valign='top'>PopupMenu</td>
<td class='desc' valign='top'><span class='declaration'>property PopupMenu: TPopupMenu;</span><br>
The popup menu you want to display when the icon is clicked.</td>
<td class='default' valign='top' nowrap>Default true</td>
</tr>
<tr>
<td class='name' valign='top'>LeftPopup</td>
<td class='desc' valign='top'><span class='declaration'>property LeftPopup: Boolean;</span><br>
Whether you want the popup menu to pop up when you click the left mouse button.
Default is false, meaning only the right button will work.<br>
<b>NOTE:</b> LeftPopup must be false (or the popup menu unassigned) if you want to
double click the tray icon without displaying the popup menu.
LeftPopup must be false if you want CoolTrayIcon to handle a menu that has a default
menu item.</td>
<td class='default' valign='top' nowrap>Default false</td>
</tr>
<tr>
<td class='name' valign='top'>Enabled</td>
<td class='desc' valign='top'><span class='declaration'>property Enabled: Boolean;</span><br>
Works like Enabled for other controls, enabling/disabling keyboard and mouse input.
Useful when you want to temporarily disable the popup menu, say while you are displaying
an about box or some other modal window.</td>
<td class='default' valign='top' nowrap>Default true</td>
</tr>
<tr>
<td class='name' valign='top'>IconList</td>
<td class='desc' valign='top'><span class='declaration'>property IconList: TCustomImageList;</span><br>
An ImageList containing icons. If it contains other images than icons, the tray icon
won't change when using CycleIcons, but no error occurs.<br>
<b>NOTE:</b> When you assign to IconList IconIndex is set to 0.<br>
<b>NOTE:</b> In D2 and D3 the property is of type TImageList in stead of TCustomImageList.</td>
<td class='default' valign='top' nowrap><br></td>
</tr>
<tr>
<td class='name' valign='top'>IconIndex</td>
<td class='desc' valign='top'><span class='declaration'>property IconIndex: Integer;</span><br>
The current icon in the assigned iconlist (or 0 if no iconlist is assigned).</td>
<td class='default' valign='top' nowrap><br></td>
</tr>
<tr>
<td class='name' valign='top'>CycleIcons</td>
<td class='desc' valign='top'><span class='declaration'>property CycleIcons: Boolean;</span><br>
Animates the tray icon by cycling through all the icons stored in IconList and assigning them
to Icon. When you set CycleIcons to true, it will begin with the first icon in IconList.<br>
<b>NOTE:</b> CycleIcons can be true even though you have no IconList.
No cycling will occur in that case, but the cycle timer is still active, which will consume
some resources.</td>
<td class='default' valign='top' nowrap>Default false</td>
</tr>
<tr>
<td class='name' valign='top'>CycleInterval</td>
<td class='desc' valign='top'><span class='declaration'>property CycleInterval: Cardinal;</span><br>
The time interval in milisecs. before selecting a new icon from IconList.</td>
<td class='default' valign='top' nowrap><br></td>
</tr>
<tr>
<td class='name' valign='top'>DesignPreview</td>
<td class='desc' valign='top'><span class='declaration'>property DesignPreview: Boolean;</span><br>
Enables you to preview the tray icon in design mode. You can watch what the icon looks like,
see its hint, enable/disable it, test the popupmenu, and animate it via CycleIcons.<br>
<b>NOTE:</b> Set DesignPreview to false to avoid the design time icon appearing when you run
your program. This is only a problem in the Delphi IDE, not in the finished exe-file.
I couldn't find a way to kill the design icon in run-time, so you'll have to do it yourself.<br>
<b>NOTE:</b> Setting DesignPreview in run-time has no effect.</td>
<td class='default' valign='top' nowrap>Default false</td>
</tr>
<tr>
<td class='name' valign='top'>Handle</td>
<td class='desc' valign='top'><span class='declaration'>property Handle: HWND;</span><br>
The tray icon's handle.</td>
<td class='default' valign='top' nowrap>Read-only</td>
</tr>
<!--
<tr>
<td class='name' valign='top'>WindowHandle</td>
<td class='desc' valign='top'><span class='declaration'>property WindowHandle: HWND;</span><br>
The tray icon's window handle.</td>
<td class='default' valign='top' nowrap><br></td>
</tr>
-->
<tr>
<td class='name' valign='top'>WantEnterExitEvents</td>
<td class='desc' valign='top'><span class='declaration'>property WantEnterExitEvents: Boolean;</span><br>
Whether you would like to receive the OnMouseEnter and OnMouseExit events.
These events require an internal timer to be active, so if you have no use for them
set WantEnterExitEvents to false to minimize resource usage.</td>
<td class='default' valign='top' nowrap>Default false</td>
</tr>
<tr>
<td class='name' valign='top'>Behavior</td>
<td class='desc' valign='top'><span class='declaration'>type TBehavior = (bhWin95, bhWin2000);<br>
property Behavior: TBehavior;</span><br>
This property does not affect the tray icon's behavior in any visible way.
It determines which messages are dispatched to the application when the user interacts
with the tray icon (specifically, right mouse clicks result in a WM_RBUTTONDOWN followed
by a WM_RBUTTONUP message in Win95 mode, but in Win2000 mode a WM_CONTEXTMENU, NIN_SELECT,
or NIN_KEYSELECT message is dispatched. For details, see the Remarks section on
<a href='http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/Shell/reference/functions/shell_notifyicon.asp'>this page</a>).<br>
Probably the only case where you should consider changing the value of this property, is
when you send messages to the tray icon programmatically, using PostMessage or SendMessage.<br>
<b>NOTE:</b> This property is public, not published.</td>
<td class='default' valign='top' nowrap>Default bhWin95</td>
</tr>
<tr>
<td class='name2' valign='top'>MinimizeToTray</td>
<td class='desc' valign='top'><i>This property applies only when the owner of the
tray icon component is a form.</i><br>
<span class='declaration'>property MinimizeToTray: Boolean;</span><br>
Whether you want to hide the main form instead of minimizing it. The form will hide
and the tray icon will show.</td>
<td class='default' valign='top' nowrap>Default false</td>
</tr>
</table>
<a name='Methods'></a><h2>Methods</h2>
<table cellpadding='2' cellspacing='2' border='0' width='100%'>
<tr>
<td class='name' valign='top'>Refresh</td>
<td class='desc' valign='top'><span class='declaration'>function Refresh: Boolean;</span><br>
Redraws the tray icon.
<!--
May be necessary when changing the icon, depending on how you do it (see above).
-->
You probably don't need to ever call this method.
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -