Array
(
)

Balão de Mensagem do TryIcon

Wagnermarrane
   - 24 fev 2006

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

#Código

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


Paullsoftware
   - 24 fev 2006

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

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

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