Unit mdTray |
.................................................................. // mdTray // Copyright © 1997 by Martin Djernæs // .................................................................. Initial Date : 2 November 1997 - MD 12 November 1997 - Version 1.0 released 19 November 1997 - + Check for avalibility of a "real" tray class (coursed an error durring design time!) - SetHandle and GetHandle for TmdTrayIcon, since a TmdTrayIcon is not actepted by the default Icon Property editor, and the Handle property can not be overwritten... 19 November 1997 - Version 1.1 released .................................................................. Description : - I were fed up with the TrayIcon components which I got from the internet. They all missed something, like being able to use icons from the resources, or updating the tray when a new icon is added. - Uses a own Icon, for being able to being told when the icon is changed so the tray can be updated. - Is tried in Delphi 2.0 and 3.0. - When wanting to change the icon via a handle change, then use mdTray.SetIconHandle(AHandle) instead of mdTray.Icon.Handle := AHandle, or call the mdTray.IconChanged manually- .................................................................. Known issues : - Rightclick in tray icon do not always show popup menu - Based on mdMsgComponent (= meight requere a bit resources) - Meight not work without a form! ..................................................................
Classes |
TmdTray -
Functions |
Register - ------ VCL funstions ------
Types |
Constants |
Variables |
Functions |
Types |
TTipString = String[63]
TWMTrayMessage = recordSince a tip maximum can be 63 chars long
Msg : Cardinal;
NotUsed : Longint;
Command : Longint;
Result : Longint;
end;
Constants |
Variables |