|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Иконка в трее. Показать окно
Я еще начинающий. Нашел пример, как свернуть программу в трей. Вставил, все вышло: прога свернулась и иконка в трее есть....
и тут произошло самое смешное: я потерял управление программой... окно то спряталось, и не закрыть прогу, ни показать окно...))) Подскажите пожалуйста, как показать окно по клику на иконке в трее, и как сделать контекстное меню для иконки в трее. Я уже третий день в поисковике брожу..( Код:
private { Private declarations } public { Public declarations } // MouseDownPoint : TPoint; Moving : bool; end; var Form1: TForm1; iconData: TNotifyIconData; implementation ... ... procedure TForm1.ButtonTrayClick(Sender: TObject); begin iconData.cbSize := sizeOf(iconData); iconData.Wnd := Handle; iconData.uID := 0; iconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; iconData.hIcon := Application.Icon.Handle; iconData.szTip := 'ПИЛОТ-2009'; iconData.uCallbackMessage := WM_MOUSEMOVE; Shell_NotifyIcon(NIM_ADD, @iconData); Form1.Hide; end; вот это у меня работает)) а дальше... |