VPF::Прилипание окоша к краям экрана

kjohn

Дата 28.8.2009, 19:07 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день!

Нужно реализовать прилипания окна к краю экрана (например, пока только к правому), это с горем пополам получилось с помощью следующего кода со своим обработчиком WM_MOVING:

Код


//В классе формы
private:    // User declarations
        void __fastcall CatchDrag(TMessage &Msg);
        BEGIN_MESSAGE_MAP
                MESSAGE_HANDLER(WM_MOVING, TMessage, CatchDrag);
        END_MESSAGE_MAP(TForm)

Код


//Реализация
void __fastcall TCallForm::CatchDrag(TMessage &Msg)
  {
    TForm::Dispatch(&Msg);
    if(Msg.Msg == WM_MOVING)
      {
        PRECT pCurrentRec = PRECT(Msg.LParam);
        int LeftBeforeMove = pCurrentRec->left;       //Текущие координаты при перемещение верхнего левого окна формы
        int TopBeforeMove = pCurrentRec->top;
        if (LeftBeforeMove+CallForm->Width >= (Screen->DesktopWidth - 20) && LeftBeforeMove+CallForm->Width <= (Screen->DesktopWidth))
        {
                CallForm->Left = Screen->DesktopWidth - CallForm->Width + 3;
        }
      }
  }

CallForm - моя форма, прилипает она к краю при приближении к краю менее 20 пикселей.
Все работает, но коряво. Т.е. при приближение формы к краю она липнет, но тут же отлипает и возвращается на исходную позицию, где курсор... Либо если аккуратно не двигать курсором после прилипания - она прилипает, но при отпускание мыши - возвращается назад, т.е. то туда, то назад. Думал, может быть программно менять расположение курсора на экране, типа как он должен быть после прилипания на объекте (он получается смещен на 20 px), но потом посмотрел как реализовано в том же винампе и аналоге и понял, что это не выход, так как там курсор после прилипания к краю остается на своем прежнем месте. В чем загвоздка, подскажите как исправить!!! smile

586

Дата 28.8.2009, 19:57 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

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

Код

class TForm1 : publiс TForm
{
__published:    // IDE-managed Components
private:    // User declarations
    void __fastcall wm_windowposchanging(TMessage &msg);
public:        // User declarations
    __fastcall TForm1(TComponent* Owner);
    BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_WINDOWPOSCHANGING, TMessage, wm_windowposchanging)
    END_MESSAGE_MAP(TForm)
};

Код

void __fastcall TForm1::wm_windowposchanging(TMessage &msg)
{
    const int sensitivity = 10;
    RECT rcWorkArea = {0};

    if(SystemParametersInfo(SPI_GETWORKAREA, 0, &rcWorkArea, FALSE))
    {
        WINDOWPOS *wp = (WINDOWPOS*)msg.LParam;
        if(abs(wp->x - rcWorkArea.left) <= sensitivity)
            wp->x = rcWorkArea.left;
        if(abs(wp->y - rcWorkArea.top) <= sensitivity)
            wp->y = rcWorkArea.top;
        if(abs(wp->cx + wp->x - rcWorkArea.right) <= sensitivity)
            wp->x = rcWorkArea.right - wp->cx;
        if(abs(wp->cy + wp->y - rcWorkArea.bottom) <= sensitivity)
            wp->y = rcWorkArea.bottom - wp->cy;
    }
    TForm::Dispatch(&msg);
}

kjohn

Дата 29.8.2009, 14:47 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо, 586!

Липнет так, как нужно! smile

Это сообщение отредактировал(а) kjohn - 29.8.2009, 14:47

Rrader

Дата 30.8.2009, 06:13 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

У формы есть свойство ScreenSnap

--------------------

Let's do this quickly!
Rest in peace, Vit!

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