![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Трей, онтоп и все все все
Rumata © (2003-07-01 19:35:00)
Поиск по конференции и хелпу ничего не дал, так что прийдется спросить:
Я хочу, чтобы программа сидела в трее и изредка выдавала на несколько секунд наверх формочку, которая была бы поверх остальных окон.
Главное окошко программы замечательно сворачивается в трей и уходит из таскбара при помощи shellnotifyicon, showwindow(application.handle, sw_hide) и showwindow(form1.handle, sw_hide). Потом, по таймеру наверх вылазиет другое окошко (из другого юнита) с параметром fsTop (что-то в этом роде). Но оно не остается поверх остальных, хотя если добть из трея главное окошко, то все работает правильно. Не помогает и WS_EX_TOPMOST который я пытаюсь ей выставить при создании (перехватываю CreateParams). По-видимому, проблема в том, что главное окошко находится в состоянии hide, но честно говоря, не понимаю, почему это должно мешать.
Poirot (2003-07-03 21:12:00) [1]
Удалено модератором
Примечание: Offtopic
Rumata (2003-07-03 16:58:00) [2]
Все. Разум победил. Для этого ему (разуму) понядобилось к стилю Form2 присобачить WS_CLIPSIBLING и сделать Form2.Parent := GetDesctopWnd;
Теперь все работает, как надо.
Rumata (2003-07-02 21:04:00) [3]
Ну, в смысле не YourWnd, конечно =))) а Form2
Rumata (2003-07-02 17:47:00) [4]
Poirot, если Вы имели в виду делать вызов не Form2.Show, а Form2.ShowModal, то это не помогло.
Игорь Шевченкосделал так в своей формк Form2, которая долна появляться поверх всех написал в protected
procedure OnActivate(var msg: TMessage); message WM_ACTIVATEи ниже в кодеprocedure OnActivate(var msg: TMessage);
begin
SetWindowPos(YourWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE)
end;
Форма Form2 вызывается из формы Form1 (в этот момент Form1 находится в состоянии hide) через Form2.Show. Ваш код не помог, нет у меня счастья =( И, честно говоря, не понимаю, почему оно должно быть - моей форме Form2 сообщение WM_ACTIVATE вроде как приходить и не должно, она-то не активируется.
Игорь Шевченко (2003-07-02 17:28:00) [5]
На событии WM_ACTIVATE делай SetWindowPos(YourWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE) и будет тебе счастье
Rumata (2003-07-02 17:23:00) [6]
[b]Poirot[/b], спасибо, пойду пробовать.
[b]Snap[/b], а зачем? У меня и так неплохо получается =)) Проблем с треем нет, трабл в том, как это все вместе заставить работать
2all так а никто не знает, [i]почему[/i] сейчас не работает - почему не срабатывает exStyle := WS_EX_TOPMOST, если спрятано главное окошко программы?
Snap (2003-07-01 20:27:00) [7]
V trej mozhno posadit cheres TTrayIcon.
Poirot (2003-07-01 20:22:00) [8]
дЕЛАЙ ОКНО SYSTEM_MODAL