Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

в системный трэй

alex111 © (2006-02-27 05:55:00)
Просмотрел фак, но не нашел.
Как свернуть свою программу в системный трэй, там где часы?
и как следсвие, как при нажатии на иконку в трее показать меню (настройка, выход, и т.д.)

Fay (2006-03-03 06:54:00) [1]
Не майся дурью. Читай [5]

alex111 (2006-03-03 06:42:00) [2]

> может так xTrayIcon.Icon:=loadFromFile('myIcon.ico');
>
> А может так .Icon.LoadFromFile()
>

не работает.

alex111 (2006-03-03 06:40:00) [3]
Ау-у-у-у!

alex111 (2006-03-02 14:58:00) [4]

> может так xTrayIcon.Icon:=loadFromFile('myIcon.ico');

да так и есть, в форуме когда писал ошибся

> А может так .Icon.LoadFromFile()

так тоже пробовал.

Dmitrij_K (2006-03-02 11:33:00) [5]
А может так .Icon.LoadFromFile()

grouzd[E]v (2006-03-02 11:29:00) [6]

> [7] alex111 © (02.03.06 05:53)

гм, может так xTrayIcon.Icon:=loadFromFile( 'myIcon.ico '); ?)

---
... we are walking on a thin line and you better avoid the risk ...

alex111 (2006-03-02 05:53:00) [7]
Здравствуйте чет не могу разобратсь с свойством Icon в xTrayIcon.
пишу: xTrayIcon.Icon:=loadFromFile(myIcon.ico);//
возникает ексепшн, если указать полный путь то-же самое.

alex111 (2006-02-28 05:32:00) [8]
Всем спасибо!

Жуков Олег (2006-02-27 11:04:00) [9]
Иконка в Трее:
Uses SHellApi

var
IconData: NOTIFYICONDATA;

Это выполнить при старте программы:
// пишу по памяти, поэтому возможны ошибки в написании параметров.
IconData.cbSize := SizeOf(NOTIFYICONDATA);
IconData.hWnd := MainForm.Handle;
IconData.hIcon := Application.Icon.Handle
IconData.Message := MY_MESSAGE;
IconData.Flags := NIF_HWND or NIF_ICON or NIF_MESSAGE or NIF_TIP;
IconData.Tip := 'My Application';
Shell_NotifyIcon(NIM_ADD, @IconData)

Это при завершении программы.
Shell_NotifyIcon(NIM_DELETE, @IconData)

при действиях мыши над иконкой в оконную функцию MainForm будет поступать сообщение MY_MESSAGE (надо будет написать его обработчик), wParam будет конкретизировать действие и принимать одно из "мышиных" значений (WM_MOUSEMOVE, WM_LBUTTONDBCLICK, WM_RBUTTONDOWN и др).

Desdechado (2006-02-27 11:00:00) [10]
http://www.delphimaster.ru/faq.shtml

Dmitrij_K (2006-02-27 08:47:00) [11]
+

> Как свернуть свою программу

ShowWindow (Form1.handle, SW_HIDE); ShowWindow (Application.handle, SW_HIDE);

----------------------------------
www.drkb.ru (Delphi Russian Knowledge Base) MusT HaVe

Dmitrij_K (2006-02-27 08:45:00) [12]

> Как свернуть свою программу в системный трэй, там где часы?

Воспользоваться готовым компонентом, например из состава RxLib, я пользуюсь простым xTrayIcon http://home-mart.by.ru/components.htm

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

Установить у компонента соответствующее свойство

www.drkb.ru (Delphi Russian Knowledge Base) MusT HaVe

Defunct (2006-02-27 06:05:00) [13]
в callback функции вызвать показ PopupMenu в заданных координатах:

var
Point : TPoint;

...
GetCursorPos (Point);
MyPopup.Popup (Point.x, Point.y);

Наверх

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