TrayIcon - Minimiza apenas 1 uma vez

const
  WM_ICONTRAY=WM_USER +1;
//
  private
    { Private declarations }
    TrayIconData: TNotifyIconData;
  public
    { Public declarations }
    Procedure TrayMouseClick(var Msg: tMessage); message WM_ICONTRAY;
//
procedure TFrmPrincipal.FormCreate(Sender: TObject);
begin
  with TrayIconData Do
    begin
      application.Icon.LoadFromFile(´Desktop.ico´);
      cbSize := Sizeof(TrayIconData);
      Wnd:= Handle;
      uID:= 0;
      uFlags:= NIF_MESSAGE + NIF_ICON + NIF_TIP;
      uCallBackMEssage:= WM_IContray;
      hIcon:= Application.Icon.Handle;
      StrpCopy(szTip, FrmPrincipal.Caption);
    end;
  Shell_NotifyIcon(NIM_ADD, @TrayIconData);
end;
//
procedure TFrmPrincipal.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon (NIM_DELETE, @TrayIconData);
end;
//
procedure TFrmPrincipal.TrayMouseClick(var Msg: tMessage);
var
  Pt: TPoint;
begin
  case Msg.LParam of
    WM_LBUTTONDBLCLK:
      Begin
        application.NormalizeTopMosts;
        FrmPrincipal.Show ;
      end;

    WM_RBUTTONDOWN:
      begin

       GetCursorPos (Pt);
      // SetForegroundWindow (Handle);
       PopupMenu1.Popup (Pt.x, Pt.y);
      end;
  end;
end;
//
procedure TFrmPrincipal.ApplicationEvents1Minimize(Sender: TObject);
begin
  FrmPrincipal.hide;
end;

naum sei mais o q posso fazer para isso não acontecer....

abraço 


Wagner