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

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

Вопрос

bAgmAn ©   (2003-01-09 17:52:00) 

Какне используя допольнительные компоненты добавить свою иконку в SysTray? Или скажите где и какой компнент взять для D6...

---

Юрий Зотов   (2003-01-10 22:34:00) [1]

Или так:
http://www.delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1042220925&n=0

Сравните эти два примера - там очень много общего. Многое станет ясно, сможете модифицировать код под свою задачу.

---

TTCustomDelphiMaster   (2003-01-10 21:45:00) [2]

http://www.delphikingdom.com/helloworld/samples_win.htm

---

bAgmAn   (2003-01-10 21:32:00) [3]

ОТЛИЧНО!!! А как обработать клик по иконке?

---

z1288   (2003-01-09 19:58:00) [4]

Можно вот так:

procedure Tray(n:Integer;Icon:TIcon);
var
N:TNotifyIconData;
begin
with N do
begin
cbSize:=SizeOf(N);
Wnd:=Form1.Handle;
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
hicon:=Icon.Handle;
uCallbackMessage:=wm_user+1;
szTip:="Хинт";
end;
case n of
1: Shell_NotifyIcon(N_Add,@Nim);
2: Shell_NotifyIcon(N_Delete,@Nim);
3: Shell_NotifyIcon(N_Modify,@Nim);
end;
end;

procedure TForm1.ControlWindow(Var Msg:TMessage);
begin
if Msg.WParam=SC_MINIMIZE then
begin
Tray(1,Application.Icon);
ShowWindow(Handle,SW_HIDE);
ShowWindow(Application.Handle,SW_HIDE);
end else inherited;
end;

---

passm   (2003-01-09 17:59:00) [5]

bAgmAn © (09.01.03 17:52)> Rx Library.

---

Delirium^.Tremens   (2003-01-09 17:55:00) [6]

Иконку в трей вставляй: Shell_NotifyIcon()
( © Т.Тенцер )

---

Наверх