памятка: Перетаскивание контролов мышью

[Алексей++]

(пишу для памяти, а то каждый раз спотыкаюсь об этот момент )

спасибо Зубру за интересный вариант (№1)

вариант №1 - с недокументированными константами!

Код:

//перетаскивание окна мышью

class CMyControl:CMyParent//:CWnd
{
//локальная на контроле точка начала перетаскивания
//(скорректированная на левый верхний угол родителя!!!)
CPoint m_drag_local_start_pnt;

//размер контрола во время начала перемещения
CSize  m_drag_start_size;

//режим перетаскивания включен
bool m_drag_mode;

CMyControl()
:m_drag_local_start_pnt(0,0)
,m_drag_start_size(0,0)
,m_drag_mode(false)
{

}
};

//переопределённая оконная процедура
LRESULT CALLBACK CMyControl::WndProc(HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam)
{
if(m_drag_mode)
switch(Msg)
{
case WM_LBUTTONDOWN:
{
enum{SC_DRAGMOVE=0xF012} ;
::ReleaseCapture();
::SendMessage(hWnd,WM_SYSCOMMAND, SC_DRAGMOVE, 0);
return 1;
}
break;

case WM_NCHITTEST:
{
//делаем (CStatic) осязаемым
LRESULT r=CMyParent::WndProc(hWnd,Msg,wParam,lParam);
if(HTTRANSPARENT==r)
{
return HTCLIENT;
}

return r;
}
break;
};

//return ОконнаяПроцедураПоУмолчанию(hWnd,Msg,wParam,lParam);
return CMyParent::WndProc(hWnd,Msg,wParam,lParam);
};

вариант №2 - "документированный MSDN" вариант

Код:

//перетаскивание окна мышью

class CMyControl:CMyParent//:CWnd
{
//локальная на контроле точка начала перетаскивания
//(скорректированная на левый верхний угол родителя!!!)
CPoint m_drag_local_start_pnt;

//размер контрола во время начала перемещения
CSize  m_drag_start_size;

//режим перетаскивания включен
bool m_drag_mode;

CMyControl()
:m_drag_local_start_pnt(0,0)
,m_drag_start_size(0,0)
,m_drag_mode(false)
{

}
};

//переопределённая оконная процедура
LRESULT CALLBACK CMyControl::WndProc(HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam)
{
if(m_drag_mode)
switch(Msg)
{
case WM_NCHITTEST:
{
//делаем (CStatic) осязаемым
LRESULT r=CMyParent::WndProc(hWnd,Msg,wParam,lParam);
if(HTTRANSPARENT==r)
{
return HTCLIENT;
}

return r;
}
break;

case WM_LBUTTONDOWN:
{
if(GetCapture()==0)
{
::SetCapture(hWnd);

CRect rect;
::GetWindowRect(hWnd,&rect);
m_drag_start_size=rect.Size();

::GetCursorPos(&m_drag_local_start_pnt);
::ScreenToClient(hWnd,&m_drag_local_start_pnt);

//учитываем смещение родительской клиентской области
if(HWND Parent=::GetParent(hWnd))
{
CPoint parP0(0,0);
::ClientToScreen(Parent,&parP0);

m_drag_local_start_pnt+=parP0;
}

//замена дефолтного вызова
::SetFocus(hWnd);
return 1;
}
}
break;

case WM_LBUTTONUP:
{
if(GetCapture()==hWnd)
{
::ReleaseCapture();

//замена дефолтного вызова
return 1;
}
}
break;

case WM_MOUSEMOVE:
{
if(GetCapture()==hWnd)
{
CPoint pCurr;
::GetCursorPos(&pCurr);
//::ScreenToClient(hWnd,&pCurr);

//новый прямоугольник контрола
CPoint p0=pCurr-m_drag_local_start_pnt;
::MoveWindow(hWnd,p0.x,p0.y,m_drag_start_size.cx,m_drag_start_size.cy,1);

//замена дефолтного вызова
return 1;

//примечание: CComboBox будет вести себя необычно - список не откроется
}
}
break;

};

//return ОконнаяПроцедураПоУмолчанию(hWnd,Msg,wParam,lParam);
return CMyParent::WndProc(hWnd,Msg,wParam,lParam);
};

[Алексей++]

добавил ещё поддержку для статиков - а то они по умолчанию мышь игнорируют

[zubr]

Алексей1153++, можно гораздо проще:

Код:

#define SC_DRAGMOVE 0xF012

void CTest1Dlg::OnLButtonDown(UINT nFlags, CPoint point)
{
CDialog::OnLButtonDown(nFlags, point);
::ReleaseCapture;
SendMessage(WM_SYSCOMMAND, SC_DRAGMOVE, NULL);
}

[Алексей++]

и что это, как это ?

Добавлено через 5 минут и 33 секунды:
и не работает, кстати

[zubr]

А как ты сделал, что не работает? Могу скинуть тестик работающий.

[Алексей++]

сделал в диалоге обработчик так, как ты показал. Когда щёлкаешь по контролам - в этот обработчик совсем не попадаем (ну оно и понятно)

Добавлено через 1 минуту и 55 секунд:
я, похоже, название неправильно написал у темы , ты не про то подумал Щас исправлю

[zubr]

Ты это имел в виду? http://www.sendspace.com/file/6z5rms

[Алексей++]

zubr, да

[zubr]

Этот тест для быстроты я на Delphi сваял. Но принцип простой - в обработчике WM_LBUTTONDOWN
ReleaseCapture;
SendMessage(WM_SYSCOMMAND, SC_DRAGMOVE, NULL);
Правда для комбобокса немного по другому делал, там надо дочерний Edit сабклассировать.

[Джон]

Добавьте ещё HitTest для OnSetCursor, а то частенько клинит.

[Алексей++]

zubr, спасибо, получилось. Не люблю, правда, недокументированные вещи )  Ну и ещё момент - моя "детализация" может в некоторых случаях тоже пригодиться для совершения всяких промежуточных вещей. А может и не пригодится- увидим.

Джон, то есть ещё по WM_NCHITTEST сделать релиз капчи ?

[Джон]

Я код не видел, но курсор иногда "залипает" после покидания контрола. Если это прсто проблема курсора, то тогда по OnSetCursor, просто делаешь хит-тест по контролам и меняешь курсор. Если капча не релизнута, тогда смотри, там было что-то с leave, ща уже точно не помню, кажется надо было окошко где-то зарегить, чтобы получать сообщение покидания.
Посмотри как это у тултипов реализовано.

зы можно попробовать и по WM_NCHITTEST для контрола. Я уже давно с нотификаторами не игрался.

ps ps Во, посмотри
http://msdn.microsoft.com/en-us/library/windows/desktop/ms646265(v=vs.85).aspx
http://msdn.microsoft.com/en-us/library/windows/desktop/ms645615%28v=vs.85%29.aspx

[zubr]

Джон, я тест на быструю руку ваял. Там проблема залипания только у комбобокса.
Изменил немного процедуру сабклассированного editа:
Старый вариант

Код:

function WindowProc_(h: HWND; uMsg, wParam, lParam: DWord): DWord; stdcall;
begin
    case uMsg of
    WM_LBUTTONDOWN: SendMessage(GetParent(h), WM_SysCommand, SC_DRAGMOVE, 0);    
    WM_LBUTTONUP: ReleaseCapture;
  end;
  Result := CallWindowProc(Pointer(oldWndProc), h, uMsg, wParam, lParam);
end;

Новый вариант:

Код:

function WindowProc_(h: HWND; uMsg, wParam, lParam: DWord): DWord; stdcall;
begin
   Result := CallWindowProc(Pointer(oldWndProc), h, uMsg, wParam, lParam);
    case uMsg of
    WM_LBUTTONDOWN: begin
      ReleaseCapture;
      SendMessage(GetParent(h), WM_SysCommand, $F012, 0);
    end;
    WM_LBUTTONUP: ReleaseCapture;
  end;
end;

Сейчас на комбобоксе не залипает курсор.
http://www.sendspace.com/file/g1gsw1

[Джон]

Джон, я тест на быструю руку ваял.

Не ну эт понятно. Я ж в общем случае, для релиза. Чтобы не забыли.

Там проблема залипания только у комбобокса.

не,  не только у комбобокса. После Edit тоже остаётся "двутавровая балка", пока куда-нить не кликнешь.

[zubr]

не,  не только у комбобокса. После Edit тоже остаётся "двутавровая балка", пока куда-нить не кликнешь.

Странно, я у себя такого эффекта не получаю. Проверял в xp и 7-ке.

[Алексей++]

zubr, вот и недостаток вскрылся : перетаскивание правой кнопкой или средней не прокатывает

Ну а когда надо левую кнопку - способ замечательный

[zubr]

Ну правая кнопка обычно под контекстное меню используется. Кстати, если подергать WM_SYSCOMMAND с параметром wParam в интервале 0xF001 - 0xF009 интересные эффекты можно получить, связанные с изменениями размеров окна и перетаскиванием.

[Алексей++]

zubr, а где-то документация есть на это ?

[zubr]

Нет.

[Алексей++]

вот то-то и оно. Как в следующей версии откажутся от F012 вообще и привет )