![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 09.09.2009
Сообщений: 31
|
![]()
Подскажите пожалуйста, сделал часы в трее вместо стандартных ,работает ,но примерно через минут 15 исчезают с трея.
похоже перегружается explorer ,как сделать чтобы он не перегружался? |
![]() |
![]() |
![]() |
#2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
А как ты их туда запихал?
I'm learning to live...
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 09.09.2009
Сообщений: 31
|
![]()
h := FindWindow('Shell_TrayWnd', nil);
h := FindWindowEx(h, HWND(0), 'TrayNotifyWnd', nil); d := FindWindowEx(h, HWND(0), 'trayclockwclass', nil); ShowWindow(d, SW_HIDE); f:=TJvclock.Create(nil); f.ParentWindow := h; f.Width := 150; f.Height := 20; GetWindowRect(h, r); SetWindowPos(h, 0 ,r.Left - f.Width, 0, r.Right - r.Left + f.Width, r.Bottom - r.Top,0); SetWindowPos(f.Handle,0 ,r.Right - r.Left, 5, f.Width - 10, f.Height,0) вот так |
![]() |
![]() |
![]() |
#4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
А-а-а да... Так не очень гоже...
Лучше создай некую иконку TIcon, на ее канве часы, а саму иконку через Shell_NotifyIcon вставляй в трей.
I'm learning to live...
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Собственные часы в трее | Crivel | Общие вопросы Delphi | 6 | 02.09.2010 13:31 |
Часы | Bingam Vici | Свободное общение | 5 | 18.05.2009 14:50 |
Программа в трее | zonclayv | Win Api | 1 | 17.04.2009 14:58 |
Заменить часы в трее | Teen4jump | Win Api | 10 | 08.08.2007 12:26 |
значки в трее | oLMeR | Общие вопросы Delphi | 3 | 11.11.2006 18:39 |