always on desktop

[Лёха_Virus]

Здраствуйте!
Подскажите, как сделать так, чтобы окно было всегда на десктопе, не сворачивалось и не перекрывала других окон?

[ANDLL]

Не пробовал, но:

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

Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long

private sub Form_Load()
SetParent hWnd,GetDesktopWindow
end sub


[ANDLL]

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

[tyomitch]

Always-on-top, что ли, надо? Или что?

[GSerg]

А если [edit]установить[/edit] WS_CHILD, то результат приколен Хотя и не тот.

[Лёха_Virus]

Always-on-top, что ли, надо? Или что?

надо always-on-DESKtop . т.е. как элемент рабочего стола. всегда на нём висит, и ничего (кроме рабочего стола) не закрывает собой.

[GSerg]

Ну так установи WS_CHILD Правда, сворачиваться будет всё равно.

[tyomitch]

Иди на vbrussian.com, там был пример

[Лёха_Virus]

Иди на vbrussian.com, там был пример

хз, не нашёл там...
мож кто знает как запретить окну сворачиваться? то же самое получится в общем то. т.е. например при нажатии на кнопку "свернуть все окна" форма не сворачивалась бы.

[GSerg]

Тьфу ты
Просто поставь BorderStyle = 0.

Нееее, пора с асмом завязывать

[tyomitch]

Иди на vbrussian.com, там был пример

хз, не нашёл там...

Не помню точно, где я его надыбал, но вот он...
Дата скачки - январь 2001

[Лёха_Virus]

я решил эту пробему оч просто:
по таймеру отслеживаю windowstate и если окно сворачивается - я его обратно разворачиваю...
хотя как тока щас выяснил оно всё-же может перекрывать окна... мож ей enabled=false поставить

а в примерчике я к сожалению такой фичи не нашёл... хотя примерчик очень неплохой...

[tyomitch]

а в примерчике я к сожалению такой фичи не нашёл... хотя примерчик очень неплохой...

Какой именно - чтобы окна не перекрывались? Свернуть его уже нельзя
Ты его пробовал к краю экрана придочить-то? Придоченный, он ничего не перекрывает.

По таймеру отслеживать WindowState - последнее дело. Лучше в обработчик _Resize это пропиши.

[Лёха_Virus]

Какой именно - чтобы окна не перекрывались? Свернуть его уже нельзя

это верно

Ты его пробовал к краю экрана придочить-то? Придоченный, он ничего не перекрывает.

да, но ведь и его окна не перекрывают

По таймеру отслеживать WindowState - последнее дело. Лучше в обработчик _Resize это пропиши.

ок, попробуем

[tyomitch]

Может быть, тебе надо SetWindowPos(HWND_BOTTOM)?

[Лёха_Virus]

Может быть, тебе надо SetWindowPos(HWND_BOTTOM)?

да, наверно это то что надо. но когда я делаю так:

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

SetWindowPos Me.hwnd, HWND_BOTTOM, 100, 100, 200, 200, SWP_SHOWWINDOW or SWP_NOACTIVATE or SWP_NOMOVE

окно ведёт себя как обычно, т.е. оно снизу пока не имеет фокуса... а когда на неё кликнеш - вылазит наверх...
а ведь не должно?

[tyomitch]

Ну тогда в Form_Click прячь его обратно под низ

[Лёха_Virus]

это хороший вариант, но проблема в том, что у меня на форме "живого места" нет, одни контролы (и многа) поэтому по клику не получается... по готфокус тоже... придётся всё-таки наверна таймер фтыкать... а жаль

[tyomitch]

это хороший вариант, но проблема в том, что у меня на форме "живого места" нет, одни контролы (и многа) поэтому по клику не получается... по готфокус тоже... придётся всё-таки наверна таймер фтыкать... а жаль

Да нет, и без таймера удастся... Лови Form_Activate и WM_ACTIVATEAPP.

[Лёха_Virus]

интересная вещь!!!
сделал main.ZOrder (0) и оно ваще терь не вылазит наверх...

[Лёха_Virus]

народ, скажите! при нажатии на кнопку "свернуть все окна" моё окно сворачивается т.к. процедура form_resize не затрагивается, где у меня прописано:

If main.WindowState <> 0 Then main.WindowState = 0

и в 98 винде окно сворачивается (а в ме нет )

как можно защитить окно от сворачивания по этой кнопке?
в принципе можно опять же по таймеру, но это же косяк

пс. с таймером ничего не вышло. при нажатии на эту блин кнопку виндовстате не меняется даже. как был 0 так и есть. ну и соответственно установление виндовстайт в 0 ничего не даёт.