скрытие и показ формы

[amer]

Добрый день!

проблема такова:
при наведении мыши на форму она (форма) должна скрываться, а при уходе опять показываться....

в событии Form_MouseMove форму пробовал прятать с помощью SendMessage и она прячется а вот обратно не показывается...
потом стал делать ее прозрачной функцией SetLayeredWindowAttributes и она показывается но осталась проблема....

дело в том, что я ее показываю в событии Timer1_Timer и следовательно она " то потухнет - то погаснет" может кто подскажет где ее показывать...

findwindow пробовал, но почему-то разные hwnd ...

и еще, когда прорисовывается форма с помощью регионов происходит подергивание....

и еще там происходит синхронизация времени с сервером, а как показать какое было расхождение не пойму...

зы чтобы вызвать контекстное меню нужно удерживать ctrl

ps ps не бросайте на произвол судьбы...

[Alprog]

Попробуй средствами WinApi узнавать расположение курсора на экране и уже в зависимости от него скрывать/показывать форму.

[amer]

попробовал, что-то у меня наверное с логикой...
все равно хрень получается

народ! посмотрите в чем дело?...
плиз

[Alprog]

Выложи вариант с WinApi, должно работать.

[Хакер]

amer
Опиши строго (мне), когда форма должна быть видна, а когда должна быть скрытой.

[amer]

эта прога типа FClock, в этом самом FClock мне не нравится будильник, а по сему я решил написать свою...

когда наводим мышу на форму - форма скрывается
когда мышь НЕ над формой - форма видна

[Хакер]

amer ты понимаешь смысл слово "строго"? "типа FClock" это совсем даже не строго.

когда наводим мышу на форму - форма скрывается
когда мышь НЕ над формой - форма видна

1) А зачем этот usertease?
2) У тебя окно меняет свою геометрическую форму (из-за региона). Таким образом, даже если мышь не двигается, условие видимости то выполняется, то нет. Ты это понимаешь?

[amer]

простите не понимаю
для меня это пока - китайская грамота
если можно объясните по-проще, что нужно изменить...

[ndemidov]

WindowFromPoint, и сравнивай с хэндлом своей формы. Но придётся использовать какой-нибудь таймер.

[amer]

Хакер
я понял!

ndemidov
вариант с WindowFromPoint и висит сейчас но работает не так, как нужно...

[amer]

ndemidov
что такое сабклассинг, чем он отличается от использования
WindowFromPoint в данном случае...

Хакер
что же делать?

[Хакер]

amer
Изменить логику.

Поставить захват на форму (SetCapture), и в MouseMove, проверять (с помощью PtInRegion) находится ли курсор над необрезанной облатсью формы, и в завимисоти от этого, делать её видимой или невидимой.

[amer]

Хакер
для чего нужна SetCapture, в смысле, что она делает?

[Хакер]

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

Иначе как ты собрался определять, что мышка покинула пределы формы?

[amer]

и что делает ReleaseCapture

[Хакер]

Снимает захват, установленный ранее с помощью SetCapture.

Разве это не очевидно?

[amer]

спс пробую...

[amer]

Хакер все равно дергается
что может быть не так?

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

Private Sub Form_Load()
    cSet False
    Me.FontSize = sFont
    WindowSize frmMain
    WindowPosition Me, False
    SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_LAYERED
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)   
    If Shift = 2 Then
        ReleaseCapture
        SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&
    End If
    If Button = 2 Then
        PopupMenu mnuMain
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Shift <> 2 Then
        SetLayeredWindowAttributes Me.hwnd, 0, 0, LWA_ALPHA
    End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Shift = 2 Then
        SetCapture hwnd
    End If
End Sub

Private Sub Timer1_Timer()
   ...
    GetCursorPos mCoord
    If PtInRegion(hRgn, mCoord.X, mCoord.Y) <> 0 Then Exit Sub
        hRgn = GetTextRgn()
        SetWindowRgn Me.hwnd, hRgn, True
        SetLayeredWindowAttributes Me.hwnd, 0, (255 * sTransp) / 100, LWA_ALPHA
End Sub



[amer]

закачал новую версию...
уже лучше, но все равно не так, как бы хотелось

[amer]

Заметил следующее:
наводим мышь на форму и
если таймер установлен на 500мс то моргание один раз в секунду
если таймер 1000мс то моргание один раз в две секунды
т.е. не зависимо от проверки в процедуре таймера происходит через раз прорисовка формы

почему так никак не врубаюсь....

[amer]

с помощью дебуга выяснил, что не работает строка
If PtInRegion(hRgn, mCoord.X, mCoord.Y) = 1 Then Exit Sub

PtInRegion=0

может это зависит от ScaleMode формы

в чем нужно задавать координаты в пикселях, твипах, точках....?
а то может получается координаты региона в одних единицах измерения а экрана в других...

[Viper]

с помощью дебуга выяснил, что не работает строка
If PtInRegion(hRgn, mCoord.X, mCoord.Y) = 1 Then Exit Sub

PtInRegion=0

может это зависит от ScaleMode формы

в чем нужно задавать координаты в пикселях, твипах, точках....?
а то может получается координаты региона в одних единицах измерения а экрана в других...

При прочих равных условиях, VB предполагает использование твипов, а функции Win API используют пиксели.

[amer]

меня кажется осенило....
когда наводим на форму - она скрывается и поэтому при проверке находится ли мыша над ней ЕЁ - нету!!!!!!
ps блин.... тормоз....2 дня!

[amer]

всем спс за участие
сделал как хотел...
только нужно сделать кнопочку для автозагрузки и синхронизацию часов через проксю.....

народ! выкладывать окончательный вариант, может кому понадобится....?

[homeworld]

Давай, выкладывай, пригодится.

[amer]

Застрял на прокси сервере....
долго думал, что нужно писать в winsock (localport, remoteport...)
и понял следующее: администратор того прокси должен сделать "проброс порта 37", а в проге ничего менять не нужно!

я правильно понял?

[amer]

Наверное это окончательный вариант
Люди! потестите и отпишитесь на предмет ошибок, предложений по усовершенствованию и разного рода идей

ps по поводу назначенных заданий... не знаю, можно сделать, но лично я ни разу не пользовался такой фишкой... оно надо?

[Matew]

amer, все нравится. Сделано прикольно, но при смене времени на секундах виден фон формы. Как из программы попасть в настройки, если бы не код, для меня осталось бы загадкой
При самом маленьком размере строки чуток перехлестываются.
А для смены цвета не лучше ли коммондиалог вызывать?
Нужно запоминать как минимум положение формы при ее закрытии.
Время не синхронизируется. Что за "протокол SNTP"? У меня отключены все фаерволы при тесте.

[amer]

при смене времени на секундах виден фон формы - как с этим бороться я пока не знаю
для смены цвета не лучше ли коммондиалог вызывать? - для этого нужно добавлять контрол, а я хотел, минимизировать размер проги и вызов всяких библиотек...
Нужно запоминать как минимум положение формы при ее закрытии - если закрывать формы не крестиком вверху формы , а кнопкой ОК то все запоминается
Время не синхронизируется. - может быть потому, что трафик идет через прокси...
Что за "протокол SNTP"? У меня отключены все фаерволы при тесте. - специальный протокол для синхронизации времени

ps в папку проги засуну read.me - там описание программы будет

[alibek]

NTP, а не SNTP тогда.