Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > Двойной щелчок мышью: два WM_LBUTTONUP при


Автор: malor 29.7.2011, 11:15
Код
case Message.Msg of

    WM_LBUTTONDOWN, WM_LBUTTONUP, WM_MBUTTONDOWN, WM_MBUTTONUP,
    WM_RBUTTONDOWN, WM_RBUTTONUP  :
    //   WM_MOUSEMOVE
    // , WM_MOUSEWHEEL
    begin

    coords.x := LOWORD(Message.lParam);
    coords.y := HIWORD(Message.lParam);

    // Make sure the high-order word in wParam is zero.
    Message.wParam := MAKEWPARAM(LOWORD(Message.wParam), 0);

    n := n + 1;                               // При пошаговой проверке смотрел чему равно
    Description := Message.Msg;             // Для лога 
    ProcessPointerEvent(coords.x, coords.y, Message.wParam, Message.Msg);

   end;

   ............. etc .....................
else

    inherited;

end;
Делаю двойной щелчок и вот отладочный лог:
12:09:03 mask: 1 PointX: 497 PointY:20 Descroption: 513
12:09:03 mask: 0 PointX: 497 PointY:20 Descroption: 514
12:09:03 mask: 0 PointX: 497 PointY:20 Descroption: 514


Почему WM_LBUTTONDOWN (код: 513) только раз встречается здесь? 

Delphi XE

P.S. Похожая тема:
http://forum.vingrad.ru/topic-38464.html

Автор: bems 29.7.2011, 14:41
не пробовал логгировать также сообщения о даблклике?

Автор: malor 29.7.2011, 14:51
user posted image
Не заходит внутрь указанного стрелкой варианта. А у вас?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)