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

[Алексей++]

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

спасибо Зубру за интересный вариант (№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 вообще и привет )