Форма в Трее (не путать с иконкой в трее)

[netdemon]

Пишу я тут одну прогу и хочу чтобы форма находилась в трее рядом с часами. Как голову ни ломал, ничего не выходит. После мрих экспериментов исчезли часы.

[GSerg]

tag_warning

Хотя за этот вопрос надо ставить сразу и второй.

[NIC]

Может это поможет...

[netdemon]

Я пробовал вот так, но не получилось.

Код: Выделить всё


TR = FindWindow("Shell_TrayWnd", "")
ST = FindWindowEx(TR, 0, "traynotifywnd", vbNullString)
cl = FindWindowEx(ST, 0, "trayclockwclass", vbNullString)
SetWindowLong frmTray.hwnd, GWL_EXSTYLE, GetWindowLong(cl, GWL_EXSTYLE)
'GetWindowRect cl, a

SetParent cl, GetWindowLong(frmTray.hwnd, GWL_ID)


[Saturn.65]

У меня такая же проблема. Надо чтоб программа была в трее. Но это не все. Надо чтоб при щелчке мышкой на эту иконку (которая в трее, рядом с часами) вылезало меню. Меню довольно простое: открыть окно этой программы и поместить ее обратно в трей. Дело в том, что эта программа всегда должна работать, но чтоб ее небыло видно.
Очень желательно простенький пример, чтоб я мог разобраться.
Заранее спасибо.

[Viper]

Saturn.65, что ли тут не был? Или там недостаточно нужной информации?

[Saturn.65]

тут

Там я был. Вроде и иконка появляется и меню. Закрываешь форму, иконка остается. Прекрасно, то, что надо. Подводишь мышку, а иконка исчезает. А мне надо, чтоб форму было не видно нигде, а толька иконка в трее.
В принципе проект можно доделать, только вот если прописать в форме, чтоб она исчезала, а появлялась при клике по меню из трея.
А это идея. Если я не ошибаюсь. А можно ли такую команду прописать для красного крестика, который закрывает форму?

[Viper]

А можно ли такую команду прописать для красного крестика, который закрывает форму?

Там можно прописать любую команду, наводящие слова - обработка событий Form_Unload и Form_QueryUnload

Поправил опечатку

[Amed]

Точнее, QueryUnload.

Код: Выделить всё

Sub QueryUnload()
    ' действия c треем
    ...
    ...
    Cancel=1
End Sub

[Saturn.65]

Спасибо всем!
Кстати, может кому надо, нашел контрол, для помещения программы в трей.