Fórum Icone proximo ao relogio #231566

uses...;

const wm_IconMessage = wm_User;

private
    procedure IconTray (var Msg: TMessage); message wm_IconMessage;
public  
    nid: TNotifyIconData;

procedure TForm1.FormCreate(Sender: TObject);
...
//TrayIcon
Icon.Handle := LoadIcon (HInstance, ´MAINICON´);
nid.cbSize := sizeof (nid);
nid.wnd := Handle;
nid.uCallBAckMessage := wm_IconMessage;
nid.hIcon := Icon.Handle;
nid.szTip := ´Real Translator OnLine´;
nid.uFlags := nif_Message or
nif_Icon or nif_Tip;
Shell_NotifyIcon (NIM_ADD, @nid);
...

procedure TForm1.IconTray (var Msg: TMessage);
var Pt: TPoint;
begin
  if Msg.lParam = wm_rbuttondown then
  begin
  GetCursorPos (Pt);
  Popup.Popup (Pt.x, Pt.y);
  end;

  if Msg.LParam = wm_lbuttondbclick then
  begin
  Form1.Show;
  end;
end;