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

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

Как поместить в трэй свою программу?? [D7, WinXP]


LEV'S ©   (2005-12-24 15:37:00) 

Помогите пожалуйста поместить программу в трэй


Джо   (2005-12-26 14:38:00) [1]

[5] vidiv ©   (26.12.05 08:49)
> исчерпывающий агрумент.

В смысле?


vidiv   (2005-12-26 08:49:00) [2]


> Джо ©   (24.12.05 18:42) [3]
> Схема:
>
> const
>  WM_MYTRAYMESSAGE = WM_USER + 666;
>
> var
>  FNotifyIconData: _NOTIFYICONDATA;
> ...
>  FNotifyIconData.cbSize := SizeOf(_NOTIFYICONDATA);
>  FNotifyIconData.Wnd := AWindowHandle;
>  FNotifyIconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
>
>  FNotifyIconData.uID := IconID;
>  FNotifyIconData.uCallbackMessage := WM_MYTRAYMESSAGE;
>  FNotifyIconData.hIcon:= <Handle иконки>;
>  FNotifyIconData.szTip := 'Hint';
> ...
>  // показываем
>  Shell_NotifyIcon(NIM_ADD,@FNotifyIconData);
>  // скрываем
>  Shell_NotifyIcon(NIM_DELETE,@FNotifyIconData);
>
> В оконной процедуре ловим наше сообщение WM_MYTRAYMESSAGE.
>  В LParam будет находится WM_RBUTTONDOWN, WM_LBUTTONDOWN
> или WM_MOUSEMOVE в зависимости от того, что произошло с
> твоей иконкой в области уведомлений.


исчерпывающий агрумент.

и еще uses shellapi забыл.

П.С.
В самом деле проще компонент скачать.


azl   (2005-12-25 13:52:00) [3]

RxLybrary - RxTrayIcon


Джо   (2005-12-24 18:42:00) [4]

Схема:

const
 WM_MYTRAYMESSAGE = WM_USER + 666;

var
 FNotifyIconData: _NOTIFYICONDATA;
...
 FNotifyIconData.cbSize := SizeOf(_NOTIFYICONDATA);
 FNotifyIconData.Wnd := AWindowHandle;
 FNotifyIconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
 FNotifyIconData.uID := IconID;
 FNotifyIconData.uCallbackMessage := WM_MYTRAYMESSAGE;
 FNotifyIconData.hIcon:= <Handle иконки>;
 FNotifyIconData.szTip := 'Hint';
...
 // показываем
 Shell_NotifyIcon(NIM_ADD,@FNotifyIconData);
 // скрываем
 Shell_NotifyIcon(NIM_DELETE,@FNotifyIconData);

В оконной процедуре ловим наше сообщение WM_MYTRAYMESSAGE. В LParam будет находится WM_RBUTTONDOWN, WM_LBUTTONDOWN или WM_MOUSEMOVE в зависимости от того, что произошло с твоей иконкой в области уведомлений.


Antonn   (2005-12-24 17:02:00) [5]

LEV'S   (24.12.05 15:37)
скачать компонент, типа CoolTray. на пример отсюда: http://www.torry.net/
или cходить на http://www.delphiworld.narod.ru/


Anatoly Podgoretsky   (2005-12-24 16:46:00) [6]

Там нет программ.


Наверх

Титульная страница Поиск, карта сайта Написать письмо