How can I add the function - "Minimize To System Tray" for my recently developed form???
How can I add the function - "Minimize To System Tray" for my recently developed form???
The simplest and intercept the mesage and the discount redirected to the main window.
orCode:PostMessage (h, WM_SYSCOMMAND, SC_MINIMIZE, 0);
implement in a complete sample your child windowCode:Application. Minimize
HTML Code:Maform = class (TForm) ... WMSYSCOMMAND procedure (var msg: TWMSysCommand); WM_SYSCOMMAND message; ... end; ... MaForm proceedings. WMSYSCOMMAND (var msg: TWMSysCommand); begin if msg. CmdType = SC_MINIMIZE Then Application. Minimize else inherited; end;
Bookmarks