VPF::Непрозрачное окно при наведении мыши

Superklug

Дата 3.5.2009, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 16.6.2006

Репутация: нет
Всего: нет

Доброго времени суток!

Появилась необходимость менять прозрачность окна при наведении мыши.
Сначала пробовал обрабатывать события на вход/выход курсора, но они плохо работают. Например, если быстро переместить курсор, событие не возникает.
Решил использовать таймер. В обработчике OnTimer проверял находится ли курсор в прямоугольнике окна. Но этот вариант тоже забраковал... Если мое окно перекрыто другим окном, то при наведении мыши на место пересечения, мое окно становится непрозрачном, хотя курсор при этом над чужим окном.
Затем узнал о функции WindowFromPoint.
Написал такой код:

Код


HWND hWnd=WindowFromPoint(Mouse->CursorPos);
while((hWnd!=NULL)&&(hWnd!=fmMain->Handle))
{
        hWnd=GetParent(hWnd);
}
if(hWnd==fmMain->Handle)
        //...

Осталось решить небольшую проблему. Если курсор находится над всплывающем меню или над другой формой моего приложения, главное окно становится прозрачным. Как этого избежать? Возможно ли по хэндлу окна можно получить хэндл приложения, котороый, на сколько я понимаю, одинаков для всех моих окон?

Superklug

Дата 3.5.2009, 14:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 16.6.2006

Репутация: нет
Всего: нет

Сделал так:

Код


HWND hWnd=WindowFromPoint(Mouse->CursorPos);
while(GetParent(hWnd)!=NULL)
{
        hWnd=GetParent(hWnd);
}
while((hWnd!=NULL)&&(hWnd!=Application->Handle))
{
        hWnd=GetWindow(hWnd,GW_OWNER);
}
if(hWnd==Application->Handle)
        //...

Теперь при наведении на мои окна, главное окно остается непрозрачным. Однако для всех меню (MainMenu, PopupMenu) проблема осталась(

Superklug

Дата 3.5.2009, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 16.6.2006

Репутация: нет
Всего: нет

Еще немного поразмыслив получил следующее:

Код


        bool inside = false;

        if(Application->Active)
        {
                TPoint CP = Screen->ActiveForm->ScreenToClient(Mouse->CursorPos);
                inside = (CP.x>=0)&&(CP.y>=0)&&(CP.x<Screen->ActiveForm->Width)&&(CP.y<Screen->ActiveForm->Height);
        }
        if(!inside)
        {
                HWND hWnd=WindowFromPoint(Mouse->CursorPos);
                while(GetParent(hWnd)!=NULL)
                {
                        hWnd=GetParent(hWnd);
                }
                while((hWnd!=NULL)&&(hWnd!=Application->Handle))
                {
                        hWnd=GetWindow(hWnd,GW_OWNER);
                }
                inside=(hWnd==Application->Handle);
        }

Вроде все работает как надо. Тема закрыта.

P.S. И зачем открывал тему спрашивается)) Ну надеюсь кому-нибудь пригодится...
P.P.S. Если кто-то знает более красивое решение - напишите.

Это сообщение отредактировал(а) Superklug - 4.5.2009, 18:07

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »