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

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

Гду найти RxTrayIcon ?? или как по-другому засунуть программу в трей ?

skovorodka ©   (2002-03-16 15:38:00) 

см выше

---

Song   (2002-03-21 21:21:00) [1]

procedure IconMouse(var Msg : TMessage); message WM_USER + 10;
....

Procedure IconMouse(Var Msg:TMessage);
Begin
GetCursorPos(p);
Case Msg.LParam OF
WM_LBUTTONUP,WM_LBUTTONDBLCLK: ShowWindow(Application.Handle,SW_SHOWNORMAL); // Левая кнопка или двойной щелчок
...
End;
End;

---

skovorodka   (2002-03-21 19:45:00) [2]

а как сделать, чтобы при нажатии на иконку показывалась форма

---

Atrem   (2002-03-16 19:15:00) [3]

Вот как добавлить иконку в трей,из примера содрал:
Uses ...ShellApi;
....
procedure seticonontray;
var
t:NOTIFYICONDATA;
begin
with t do
begin
t.cbSize:=sizeof(notifyicondata);
t.Wnd:=fMainForm.Handle;
t.uID:=10;
t.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
t.uCallbackMessage:=WM_USER+10;
t.hIcon:=fMainForm.Icon.Handle;
StrPCopy(t.szTip,"Моя программа ");
end;
Shell_NotifyIcon(NIM_ADD,@t);
end;
Чтобы удалять успользуй константу Nim_Delete

---

Наверх