Project Structure

• MyTrayIconClick.dpr
• MyTrayIconClick_MainForm.pas
• MyTrayIconClick_MainForm.dfm {FormMyTrayIconClick}

program MyTrayIconClick;

uses
  Forms,
  MyTrayIconClick_MainForm in 'MyTrayIconClick_MainForm.pas' {FormMyTrayIconClick};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskBar := True;
  Application.ShowMainForm := False;
  Application.CreateForm(TFormMyTrayIconClick, FormMyTrayIconClick);
  Application.Run;
end.

unit MyTrayIconClick_MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus;

type
  TFormMyTrayIconClick = class(TForm)
    TrayIcon1: TTrayIcon;
    PopupMenu1: TPopupMenu;
    one1: TMenuItem;
    two1: TMenuItem;
    three1: TMenuItem;
    four1: TMenuItem;
    N1: TMenuItem;
    Close1: TMenuItem;
    procedure one1Click(Sender: TObject);
    procedure TrayIcon1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TrayIcon1BalloonClick(Sender: TObject);
    procedure Close1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMyTrayIconClick: TFormMyTrayIconClick;

implementation

{$R *.dfm}

procedure TFormMyTrayIconClick.Close1Click(Sender: TObject);
begin
  Close;
end;

procedure TFormMyTrayIconClick.one1Click(Sender: TObject);
begin
  Show;
end;

procedure TFormMyTrayIconClick.TrayIcon1BalloonClick(Sender: TObject);
begin
  ShowMessage ('Balloon Hint Clicked');
end;

procedure TFormMyTrayIconClick.TrayIcon1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TrayIcon1.ShowBalloonHint;
end;

end.

object FormMyTrayIconClick: TFormMyTrayIconClick
  Left = 0
  Top = 0
  Caption = 'MyTrayIconClick'
  ClientHeight = 294
  ClientWidth = 467
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object TrayIcon1: TTrayIcon
    Animate = True
    BalloonHint = 'sample balloon hint'
    BalloonTitle = 'hi'
    BalloonTimeout = 1000
    BalloonFlags = bfInfo
    Icon.Data = {
      0000010001002020100000000000E80200001600000028000000200000004000
      0000010004000000000080020000000000000000000000000000000000000000
      000000008000008000000080800080000000800080008080000080808000C0C0
      C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000008888800000000000000000000000008844444880000000000000000
      0000008447777744800000000000000000000844444444444800000000000000
      0000844444444444448000000000000000008444444444444480000000000000
      000844444E444444444800000000000000084444E44444444448000000000000
      0008444E6E44444444480000000000000008444CECECCCCC4448000000000000
      00084CCE6ECCCCCCCC4800000000000000008CCCE6ECCCCCCC80000000000000
      000088FCCECCCCCCF8800000000000000000088F8F8F8F8F8800000000000000
      00000088FFF8F8F88000000000000000000000088FFF8F880000000000000000
      0000000088FFF8800000000000000000000000007F8F8F700000000000000000
      0000000008FFF800000000000000000000000000088F88000000000000000000
      0000000008FFF800000000000000000000000000088F88000000000000000000
      0000000008FFF800000000000000000000000000088F88000000000000000000
      0000000008F87700000000000000000000000007888888870000000000000000
      0000000887777788000000000000000000000007788888770000000000000000
      000000000000000000000000000000000000000000000000000000000000FFFF
      FFFFFFF83FFFFFE00FFFFFC007FFFF8003FFFF0001FFFE0000FFFE0000FFFC00
      007FFC00007FFC00007FFC00007FFC00007FFE0000FFFE0000FFFF0001FFFF80
      03FFFFC007FFFFE00FFFFFE00FFFFFF01FFFFFF01FFFFFF01FFFFFF01FFFFFF0
      1FFFFFF01FFFFFE00FFFFFC007FFFFC007FFFFC007FFFFE00FFFFFFFFFFF}
    PopupMenu = PopupMenu1
    Visible = True
    OnBalloonClick = TrayIcon1BalloonClick
    OnMouseDown = TrayIcon1MouseDown
    Left = 104
    Top = 112
  end
  object PopupMenu1: TPopupMenu
    Left = 120
    Top = 176
    object one1: TMenuItem
      Caption = 'one'
      Default = True
      OnClick = one1Click
    end
    object two1: TMenuItem
      Caption = 'two'
    end
    object three1: TMenuItem
      Caption = 'three'
    end
    object four1: TMenuItem
      Caption = 'four'
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Close1: TMenuItem
      Caption = 'Close'
      OnClick = Close1Click
    end
  end
end