1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

type
  TNotifyMouseEvent = procedure(Sender : TObject; X, Y : Longint) of object;

  TNotifyIcon = class(TNotifyComponent) // TComponent mit Message behandlung
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
  private
    { Private-Deklarationen }
    fNotifyIconData : TNotifyIconData;
    fIcon : TIcon;
    fHint : String;
    fVisible : Boolean;
    fPopupMenu : TPopupMenu;

    fOnLButtonDown : TNotifyMouseEvent;
    fOnRButtonDown : TNotifyMouseEvent;
    fOnMButtonDown : TNotifyMouseEvent;
    fOnLButtonUp   : TNotifyMouseEvent;
    fOnRButtonUp   : TNotifyMouseEvent;
    fOnMButtonUp   : TNotifyMouseEvent;
    fOnLButtonDblClk : TNotifyMouseEvent;
    fOnRButtonDblClk : TNotifyMouseEvent;
    fOnMButtonDblClk : TNotifyMouseEvent;
    procedure NotifyIconMessage(var AMessage : TMessage); message WM_NotifyIconMessage;
    procedure SetIcon(AIcon : TIcon);
    procedure SetVisible(AVisible : Boolean);
    procedure SetHint(AHint : String);
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Icon : TIcon read fIcon write SetIcon;
    property Visible : Boolean read fVisible write SetVisible;
    property Hint : String read fHint write SetHint;
    property PopupMenu : TPopupMenu read fPopupMenu write fPopupMenu;

    property OnLButtonDown : TNotifyMouseEvent read fOnLButtonDown write fOnLButtonDown;
    property OnRButtonDown : TNotifyMouseEvent read fOnRButtonDown write fOnRButtonDown;
    property OnMButtonDown : TNotifyMouseEvent read fOnMButtonDown write fOnMButtonDown;
    property OnLButtonUp   : TNotifyMouseEvent read fOnLButtonUp write fOnLButtonUp;
    property OnRButtonUp   : TNotifyMouseEvent read fOnRButtonUp write fOnRButtonUp;
    property OnMButtonUp   : TNotifyMouseEvent read fOnMButtonUp write fOnMButtonUp;
    property OnLButtonDblClk : TNotifyMouseEvent read fOnLButtonDblClk write fOnLButtonDblClk;
    property OnRButtonDblClk : TNotifyMouseEvent read fOnRButtonDblClk write fOnRButtonDblClk;
    property OnMButtonDblClk : TNotifyMouseEvent read fOnMButtonDblClk write fOnMButtonDblClk;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

constructor TNotifyIcon.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);

  if not Assigned(fIcon) then
  begin
    fIcon := TIcon.Create;
    fIcon.Assign(Application.Icon);
  end;

  fVisible := False;
  fHint := '';

  with fNotifyIconData do
  begin
    cbsize           := sizeof(TNotifyIconData);
    uID              := 0;
    uFlags           := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallbackMessage := WM_NotifyIconMessage;
    szTip            := '';
    Wnd              := Handle;
    hIcon            := fIcon.Handle;
  end;
end;

procedure TNotifyIcon.SetIcon(AIcon : TIcon);
var
  NewIcon : TIcon;
begin
  NewIcon := nil;
  if AIcon <> nil then
  begin
    NewIcon := TIcon.Create;
    NewIcon.Assign(AIcon);
  end;
  try
    fIcon.Free;
    FIcon := NewIcon;
    fNotifyIconData.hIcon := fIcon.Handle;
    if fVisible then Shell_NotifyIcon(NIM_MODIFY, @fNotifyIconData)
  except
    NewIcon.Free;
    raise;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

  ...
  fIcon.Free; 
  FIcon := NewIcon; //--> hier wird nur der Zeiger aber kein Inhalt zugewiesen
  ...
except 
    NewIcon.Free; // --> Referenz auf fIcon wird gelöscht
  ...					

1:
2:
3:
4:
5:

procedure TNotifyIcon.SetIcon(AIcon : TIcon); 
begin
  fIcon.Assign(aIcon);
  if fVisible then Shell_NotifyIcon(NIM_MODIFY, @fNotifyIconData);
end;