Delphi, Add Minimize to System Tray?!

[alex198555]

How can I add the function - "Minimize To System Tray" for my recently developed form???

[Shreevats]

The simplest and intercept the mesage and the discount redirected to the main window.

PostMessage (h, WM_SYSCOMMAND, SC_MINIMIZE, 0);

or

  Application. Minimize

implement in a complete sample your child window

 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;