| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с Shell_NotifyIcon [D6, WinXP]

leonidus ©   (2006-07-28 13:22:00) 

Мастер подскажите пожалуйста, для того, что бы поместить иконку мой программы в трей я использую компонент из библиотеки LMD, а теперь мне нужно при запуске программы над ним отобразить т.н. Balloon Tips, я так понял что нужно использовать функцию Shell_NotifyIcon, и нашел хороший пример ее использования: http://www.swissdelphicenter.ch/torry/showcode.php?id=1164однако он не работает если иконка в трей уже помещена, вот и вопрос, как мне с одной стороны использовать удобства компонента LMD помещающего иконку в трей и используя  Shell_NotifyIcon отобразить Balloon Tips ?

---

DprYg   (2006-07-30 14:37:00) [1]

uses ShellApi;
const traymsg = WM_USER + 1;

---

leonidus   (2006-07-30 12:46:00) [2]

DprYg спасибо, сейчас попробую

---

DprYg   (2006-07-28 15:41:00) [3]

Извиняюсь за читабельность кода. Торопился...

---

DprYg   (2006-07-28 15:40:00) [4]

private
procedure tray(var a:tmessage); message traymsg;
procedure min(var a:twmsyscommand); message wm_syscommand;
.............
end;
var nid:tnotifyicondata;
...........
procedure TMainForm.FormDestroy(Sender: TObject);
begin
 shell_notifyicon(nim_delete,@nid);
 ............
end;
procedure tMainForm.tray(var a:tmessage);
var
 p:tpoint;
begin
 case a.LParam of { всплывающее меню }
  wm_lbuttondblclk:begin show; setforegroundwindow(handle); end;
  wm_rbuttondown:begin getcursorpos(p); pont.Popup(p.X,p.Y); end;
 end;
end;
procedure tMainForm.min(var a:twmsyscommand);
begin
 if a.CmdType=sc_minimize then
  begin
   mainform.Hide;
   with nid do
    begin
     cbsize:=sizeof(tnotifyicondata);
     wnd:=handle;
     uid:=1;
     uflags:=nif_icon or nif_message or nif_tip;
     ucallbackmessage:=traymsg;
     hicon:=application.Icon.Handle;
     sztip:='Name...';
    end;
   shell_notifyicon(nim_add,@nid);
  end else inherited;
end;
procedure TMainForm.mRestoreClick(Sender: TObject);{Восстановить}
begin
 mainform.Show;
 shell_notifyicon(nim_delete,@nid);
end;


---

Eraser   (2006-07-28 15:12:00) [5]

> [2] leonidus ©   (28.07.06 15:09)


> проект уже написан с использованием LMD

ну тогда чтобы не устанавливать громоздкий JEDI посоветую использовать отдельный компонент CoolTray - найти его в сети проблем не должно вызвать.

> а во-вторых я юзаю Delphi 6

а какая разница?

---

leonidus   (2006-07-28 15:09:00) [6]

Ну во-первых проект уже написан с использованием LMD, а во-вторых я юзаю Delphi 6

---

Eraser   (2006-07-28 14:48:00) [7]

> [0] leonidus ©   (28.07.06 13:22)


> я использую компонент из библиотеки LMD

LOL :))

лучше используйте компонент из библиотеки JEDI VCL, либо стандартный, который появился в составе Делфи2006.

---

Наверх