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

TTipString
TWMTrayMessage

Constants

defTrayActive
WM_TrayMessage

Variables


Functions


procedure Register;

------ VCL funstions ------

Types


TTipString = String[63]

TWMTrayMessage = record
Msg : Cardinal;
NotUsed : Longint;
Command : Longint;
Result : Longint;
end;
Since a tip maximum can be 63 chars long

Constants

defTrayActive = True

Unique ????

WM_TrayMessage = WM_User + 9100


Variables