Как управлять разрешением перемещать форму из программы?

@jkrnd · Регистрация: 22.12.2015

Всем здравствуйте.

В режиме разработки установив Form1->Align->alCustom можно запретить перемещение формы за заголовок.
Стоит задача: сделать это из программного кода на этапе выполнения приложения.
Клик по Command1 - запрещаем перемещать форму.
Клик по Command2 - разрешаем перемещать форму.
Вопрос поднимался здесь Запретить перемещать форму но уж очень давно, вряд ли кто-то отзовётся продолжить обсуждение.
Заинтересовал случай с использованием TApplicationEvents как пример перехвата сообщений Windows:

C++

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{
    switch (Msg.message)
    {
        case WM_MOVING:
        //... обработка WM_MOVING
        {
            RECT rc;
            GetWindowRect(Handle, &rc);
            *((LPRECT)Message.DragRect) = rc;
            break;
        }
        //... остальные сообщения
        default:
        return;
    }
}

Компилятор ругается на Undefined symbol 'Message' в строке 10.
Что я не так делаю?

@Si14 · 24.04.2018, 08:45

Так почему бы не пойти по пути наименьшего сопротивления и воспользоваться свойством Align?

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Align = alCustom;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Align = alNone;
}
//---------------------------------------------------------------------------

@jkrnd · 24.04.2018, 09:05 **[ТС]**

Si14, Всё работает, спасибо. Но всё-таки что не так в приведенном выше коде?

@Si14 · 24.04.2018, 11:50

Я попробовал сделать через ApplicationEvents1 и сообщение WM_MOVING вообще не приход

C++

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
    switch (Msg.message)
    {
        case WM_MOVING:
        {
            ShowMessage("Moving!");
        }
    }
}

Так что надо делать через MESSAGE_MAP.

Кликните здесь для просмотра всего текста

А если бы сообщение приходило, то правильный код был бы

C++

RECT rc;
 GetWindowRect(Handle, &rc);
*((LPRECT)Msg.lParam) = rc;
Handled = true;
break;

@volvo · 24.04.2018, 11:54

Сообщение от jkrnd

что не так в приведенном выше коде?

Во-первых - название параметра, во вторых - логика: при получении сообщения WM_MOVING через lparam передается указатель на структуру, хранящую позицию окна, то есть, делать нужно вот что:

C++

1	*((LPRECT)(Msg.lParam)) = rc;

логика понятна? Получить указатель на структуру, разыменовать его и туда записать какое-то фиксированное значение, чтобы позиция формы не изменилась. А вот получать rc по приходу того же WM_MOVING - очень плохая затея, оно у тебя и будет новой позицией окна. Если хочешь запретить движение - то надо в момент начала запрета перемещения формы сохранить ее позицию, и уже ее записывать по полученному указателю.

@nick42 · 24.04.2018, 14:41

...кстати, о логике. У меня сегодня с этим проблемы.
Я порешал проблему "заморозки" формы на экране аналогичным способом (через ApplicationMessage). НО! пришлось корректировать. Числа подбирались и они примерно соответствуют двойной ширине бордюра (left) и двойной ширине шапки (top). Не могу понять - почему. Почему программа сохраняет "неправильные" величины??

C++

void __fastcall TForm1::FormShow(TObject *Sender)
{
    re = Rect(Form1->Left,Form1->Top,
              Form1->Width,Form1->Height);
    Wl0 = Form1->Left; Wt0 = Form1->Top;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
    if(Msg.message!=161 || Msg.wParam!=2) return;
    Caption = "Alarm!" ;
 //   Left = re.Left - 17 ; Top  = re.Top  + 72 ;
    Left = Wl0 - 17 ; Top  = Wt0 + 72 ;
    Handled = true;
}

Добавлено через 15 минут
Впрочем, как оказалось, в режиме Form-Position Designed всё нормально; коррекция не требуется. А для DesktopCenter (другие не проверял) без коррекции отскакивает.

Добавлено через 14 минут
Я, кажется, догадался. В момент Form-Show, когда окно еще в той области, где было в процессе компиляции программы, эти координаты и запоминаются. А уже по CanResize, Resize окно помещается туда, куда задано (Form->Position). А "двойная ширина" как мне казалось - это совпадение.

@jkrnd · 24.04.2018, 15:00 **[ТС]**

Si14, Почему не приходит сообщение WM_MOVING? И что такое

Сообщение от Si14

надо делать через MESSAGE_MAP.

@jkrnd 172 / 62 / 11 Регистрация: 22.12.2015 Сообщений: 2,461
	24.04.2018, 09:05 [ТС]	3
	Si14, Всё работает, спасибо. Но всё-таки что не так в приведенном выше коде? 0

@jkrnd 172 / 62 / 11 Регистрация: 22.12.2015 Сообщений: 2,461
	24.04.2018, 15:00 [ТС]	7
	Si14, Почему не приходит сообщение WM_MOVING? И что такое Сообщение от Si14 надо делать через MESSAGE_MAP. 0

Опции темы

Как управлять разрешением перемещать форму из программы?

Решение