Текущий архив: 2003.01.20;
Скачать: CL | DM;

Вниз

Вопрос   Найти похожие ветки 

← →
bAgmAn ©   (2003-01-09 17:52) [0]

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

---

← →
Delirium^.Tremens ©   (2003-01-09 17:55) [1]

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

---

← →
passm ©   (2003-01-09 17:59) [2]

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

---

← →
z1288 ©   (2003-01-09 19:58) [3]

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

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;

---

← →
bAgmAn ©   (2003-01-10 21:32) [4]

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

---

← →
TTCustomDelphiMaster ©   (2003-01-10 21:45) [5]

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

---

← →
Юрий Зотов ©   (2003-01-10 22:34) [6]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c