Форум программистов CodeGuru
17 Январь 2018, 22:08:19 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: Двойной щелчок мышью: два WM_LBUTTONUP при одном WM_LBUTTONDOWN - как так?  (Прочитано 13542 раз)
0 Пользователей и 1 Гость смотрят эту тему.
malor
Интересующийся
**
Офлайн Офлайн

Сообщений: 21


Просмотр профиля
« : 30 Июль 2011, 21:37:35 »

Делая двойной щелчок в клиентской зоне я проверял какие приходят Message.Msg и получалось что одно WM_LBUTTONDOWN и два WM_LBUTTONUP. Почему?
Код:
implementation

{$R *.dfm}

var countClick :Word;
    Description: Word;

procedure TForm1.Wndproc(var Message: TMessage);
begin

  case Message.Msg of

    WM_LBUTTONDOWN, WM_LBUTTONUP:
    begin
      countClick := countClick + 1;

      Description := Message.Msg;

    end;

  else
    inherited;
  end;

end;
Записан
holdmann
Пользователь
***
Офлайн Офлайн

Сообщений: 262



Просмотр профиля
« Ответ #1 : 07 Август 2011, 20:19:10 »

Делфи не знаю, но может стоит попробовать что-нибудь из этого?

WM_LBUTTONDBLCLICK
WM_LBUTTONCLICK

Можно добавить, допустим, дефолтное условие в кейс, и смотреть на что оно срабатывает.

Записан

Елси вы хотите купить, продать, отремонтировать автомобиль в Ижевске: Вам сюда =)
(c)holdmann
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!