Balão de Mensagem do TryIcon

24/02/2006

Pessoal estou usando o seguinte código para o tray icon do meu sistema

procedure TSendFTP.FormCreate(Sender: TObject);
begin
  with TrayIconData Do
    begin
      application.Icon.LoadFromFile(´c:\ftp\imagens\theinternet.ico´);
      cbSize := Sizeof(TrayIconData);
      Wnd:= Handle;
      uID:= 0;
      uFlags:= NIF_MESSAGE + NIF_ICON + NIF_TIP;
      uCallBackMEssage:= WM_IContray;
      hIcon:= Application.Icon.Handle;
      StrpCopy(szTip, SendFtp.Caption);
    end;
  Shell_NotifyIcon(NIM_ADD, @TrayIconData);
end;

procedure TSendFTP.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon (NIM_DELETE, @TrayIconData);
end;

procedure TSendFTP.TrayMouseClick(var Msg: tMessage);
var
  Pt: TPoint;
begin
  case Msg.LParam of
    WM_LBUTTONDBLCLK:
      Begin
        SendFTP.Show;
        application.Restore;
      end;

    WM_RBUTTONDOWN:
      begin

       GetCursorPos (Pt);
      // SetForegroundWindow (Handle);
       PopupMenu1.Popup (Pt.x, Pt.y);
      end;
  end;
end;


Porém gostaria de saber como faço para emitir notificações (famosos balões de mensagens) ao usuario de uma determinada rotina que o sistema começou a executar no instante que ele esta minimizado na bandeja.

Valeu

Wagner


Wagnermarrane

Respostas

24/02/2006

Paullsoftware

tem uma dica no site da ClubeDelphi que ensina a criar ToolTips com balões...

[url]http://www.devmedia.com.br/visualizacomponente.aspx?comp=899&site=3[/url]

dê um olhada pode ser que te ajude! :wink:


Responder Citar