Delphi/Lazarus: Show Application with Icon in System Tray

In the tab "Additional", you can find the component TTrayIcon. When dropping this to you application, you should have all you need.

You can exactly adjust the behavior in the properties of TrayIcon to your needs.

• The property "Visible" determines whether your TrayIcon is visible or not. You can directly set the visibility to "true", so that the Icon is immediately visible after starting the program or you can set visible to "false", first, in order to change it during runtime.
• Under "Icon", you can select an image that is used as icon in the taskbar.
• Even the property "PopUpMenu" is interesting, because here you can define a popup-menu that will be shown whenever the user right clicks the icon with his mouse.

Assumed, you have a button on your form, you can realize the following, for example:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form1.Hide;
   TrayIcon1.Visible:=true;
end;

With this, your window is hidden and simultaneously shown as TrayIcon.

Of course, you can also do the same when the user is minimizing the window:

procedure TForm1.FormWindowStateChange(Sender: TObject);
begin
  if Form1.WindowState = wsminimized then begin
     Form1.Hide;
     TrayIcon1.Visible:=true;   
  end;
end;      

With this, the window is directly minimized to the tray.

To get back the window, you can write the following code into the OnDblClick event of the TrayIcon:

procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin
  Form1.WindowState:=wsNormal; 
  Form1.Show;    
  Form1.SetFocus;   
  TrayIcon1.Visible:=false;
end;

In other words, when double-clicking the TrayIcon, the window will be displayed again, the window gets the focus and the TraycIcon is set to invisible.

I think with those snippets, you have enough sources to implement what you need and of course, you can adjust all of those functions to your requirements.
2015-03-22 at 03:19