Всплывающее сообщение в трее

[Pasha_Sh]

Нужен компонент, при помощи которого я смогу выводить сообщения в трей.

[Stilet]

М.м.м Кажись BaloonToolTip называется. Помоему в LMD есть такой

[Pasha_Sh]

Нашел что-то

Но это не то....

[SERG1980]

CoolTrayIcon может такое

[_SERGEYX_]

В смысле, чтобы сообщение всплывало из трея?
В TMS есть AdvAlertWindow
В JEDI - JvDesktopAlert
В Berg Next - не помню как называется, но компонент крутой.
Одиночный компонент KMAlert (я использую именно его, т.к. он позволяет вид редактировать в дизайне). В общем, копай по слову Alert...

[raxp]

...а зачем компонент ...всегда использую такую конструкцию, делаете модулем:

 procedure delicon(ch:thandle); // удалить иконку
 procedure set_tn(ti,r: smallint; hint:shortstring); // установить иконку в трей
 procedure show_tn(mode: smallint; info,title: string); // вывести сообщение над иконкой в трее

//
const
 NIF_INFO = $10;
 NIF_MESSAGE = 1;
 NIF_ICON = 2;
 NOTIFYICON_VERSION = 3;
 NIF_TIP = 4;
 NIM_SETVERSION = $00000004;
 NIM_SETFOCUS = $00000003;
 NIIF_NONE = $00000000;
 NIIF_INFO = $00000001;
 NIIF_WARNING = $00000002;
 NIIF_ERROR = $00000003;

 WM_USER = $0400;
 NIN_BALLOONCLOSE = WM_USER + 1;
 NIN_BALLOONSHOW = WM_USER + 2;
 NIN_BALLOONHIDE = WM_USER + 3;
 NIN_BALLOONTIMEOUT = WM_USER + 4;
 NIN_BALLOONUSERCLICK = WM_USER + 5;
 NIN_SELECT = WM_USER + 0;
 NINF_KEY = $1;
 NIN_KEYSELECT = NIN_SELECT or NINF_KEY;

 TRAY_CALLBACK = WM_USER + 222;

var IconData: TNewNotifyIconData; 

procedure Ontmr1(uTimerID, uMessage: uint;dwUser, dw1, dw2: dword) stdcall; // обеспечиваем смену иконок
begin
 inc(itn); if itn>1 then itn:= 0;
 if atn then set_tn(itn,1,'')
end;

procedure set_tn(ti,r: smallint; hint:shortstring);
begin
 IconData.cbSize:= SizeOf(IconData);
 IconData.Wnd   := vid.Handle; //AllocateHWnd(vid.iconmsg);
 //
 IconData.uID   := 1;
 IconData.uFlags:= NIF_ICON or NIF_MESSAGE or NIF_TIP;
 IconData.uCallbackMessage:= TRAY_CALLBACK;

 case ti of
  0: IconData.hIcon:= loadicon(HInstance,'pn');
  1: IconData.hIcon:= loadicon(HInstance,'pw');
  2: IconData.hIcon:= loadIcon(0,MakeIntResource(32513+0));
  3: IconData.hIcon:= loadIcon(0,MakeIntResource(32513+1));
  4: IconData.hIcon:= loadIcon(0,MakeIntResource(32513+2));
  5: IconData.hIcon:= loadIcon(0,MakeIntResource(32513+3));

  6: IconData.hIcon:= loadicon(HInstance,'pp');
  7: IconData.hIcon:= loadicon(HInstance,'wp');
 end;

 StrPLCopy(IconData.szTip,hint,SizeOf(IconData.szTip)-1);
 if r=0 then begin                                   //-add
  Shell_NotifyIcon(NIM_ADD, @IconData);
  tmr1:= timesetevent(250,0,@Ontmr1,0,TIME_PERIODIC)
 end;
 if r=1 then Shell_NotifyIcon(NIM_MODIFY, @IconData);//-mod
 if r=2 then begin                                   //-del
  timeKillEvent(tmr1);
  Shell_NotifyIcon(NIM_DELETE, @IconData)
 end
end;

procedure show_tn(mode: smallint; info,title: string);
begin
 IconData.cbSize:= SizeOf(IconData);
 IconData.uFlags:= NIF_INFO;
 strPLCopy(IconData.szInfo, Info, SizeOf(IconData.szInfo) - 1);
 IconData.DUMMYUNIONNAME.uTimeout := 5000;
 strPLCopy(IconData.szInfoTitle, Title, SizeOf(IconData.szInfoTitle) - 1);
 case mode of
  0: IconData.dwInfoFlags:= NIIF_NONE;
  1: IconData.dwInfoFlags:= NIIF_INFO;
  2: IconData.dwInfoFlags:= NIIF_ERROR;
  3: IconData.dwInfoFlags:= NIIF_WARNING
 end;
 Shell_NotifyIcon(NIM_MODIFY, @IconData);
end;

[temchik2004]

KMalert
пытаюсь запустить исходник оно мне выдает ошибку будто плагин не установлен!
Пожалуйста помогите с его установкой!

[newerow1989]

А как сделать, чтобы при нажатии на всплывающее сообщение происходило какое-нибудь событие (например, открыть окно программы)?

[ZuBy]

newerow1989, OnBalloonClick?

[newerow1989]

Каким образом вызвать эту процедуру? В IconData нет такого события