A pallet control that supports the Fmx.win framework

Not much to say directly on the code ..... Have any questions please email me ....

FMX. Win platform under pallet////version: 1.0//Author: Degenerate Demon//modified: 2015-06-26//qq:17948876//e-mail: [email protected]//Blog: http://www . cnblogs.com/hs-kill/////!!! If there are any changes, please inform the author, thank you for your cooperation!!! ---------------------------------------------------------------------------////Description://1. The default icon is the program icon//2. Need to use dynamic diagram ////***************************************************************************unit FMX to pass in an array of dynamic icon handles first. Win.trayicon;interfaceuses winapi.windows, Winapi.messages, Winapi.shellapi, System.sysutils, System.Classes, System.uitypes, FMX. Forms, FMX. Types, FMX. Platform.win, FMX. Multiresbitmap, FMX. Menus;const wm_system_tray_message = wm_user + $128;type tballoonflags = (Bfnone = niif_none, BfInfo = NIIF_INFO, BfW  arning = niif_warning, bferror = Niif_error);  [Rootdesignerserializerattribute (', ', ', False)]  [Componentplatformsattribute (PidWin32 or PidWin64)] Ttrayicon = Class (tcomponent) Private clThe Rm_taskbarcreated:dword;    Private Fanimate:boolean;    fballoonhint:string;    fballoontitle:string;    Fballoonflags:tballoonflags;    Fisclicked:boolean;    Fdata:tnotifyicondata;    Ficon:hicon;    Fcurrenticonindex:uint8;    fanimateiconlist:tarray
Http://www.cnblogs.com/hs-kill/p/4603012.html
A pallet control that supports the Fmx.win framework