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

← →
alex111 © (2006-02-27 05:55) [0]

Просмотрел фак, но не нашел.
Как свернуть свою программу в системный трэй, там где часы?
и как следсвие, как при нажатии на иконку в трее показать меню (настройка, выход, и т.д.)

← →
Defunct © (2006-02-27 06:05) [1]

в callback функции вызвать показ PopupMenu в заданных координатах:

var
Point : TPoint;

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

← →
Dmitrij_K (2006-02-27 08:45) [2]

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

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

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

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

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

← →
Dmitrij_K (2006-02-27 08:47) [3]

+

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

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

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

← →
Desdechado © (2006-02-27 11:00) [4]

http://www.delphimaster.ru/faq.shtml

← →
Жуков Олег (2006-02-27 11:04) [5]

Иконка в Трее:
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 и др).

← →
alex111 © (2006-02-28 05:32) [6]

Всем спасибо!

← →
alex111 © (2006-03-02 05:53) [7]

Здравствуйте чет не могу разобратсь с свойством Icon в xTrayIcon.
пишу: xTrayIcon.Icon:=loadFromFile(myIcon.ico);//
возникает ексепшн, если указать полный путь то-же самое.

← →
grouzd[E]v © (2006-03-02 11:29) [8]

> [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 ...

← →
Dmitrij_K (2006-03-02 11:33) [9]

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

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

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

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

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

Ау-у-у-у!

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

не работает.

Не майся дурью. Читай [5]

в системный трэй Найти похожие ветки