Двойной щелчок мышью: два WM_LBUTTONUP при одном WM_LBUTTONDOWN - как так?

[malor]

Делая двойной щелчок в клиентской зоне я проверял какие приходят 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;

[x77]

у меня по-одному. правда, в Д7 проверял.

[zubr]

При получении сообщения WM_LBUTTONDOWN и  WM_LBUTTONUP твоя процедура окна не возвращает управление оригинальной процедуре окна.

Код:

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

  case Message.Msg of

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

      Description := Message.Msg;

    end;
  end;

  inherited;
end;

[x77]

и поэтому это окно невозможно штатно закрыть, например ) но я так понимаю, что проект чисто тестовый.

[malor]

"Win 32. Эфффективная разработка приложений" Юрий Щупак, 2007 г., с.229:

"Если класс окна определен без флага CS_DBLCLKS и пользователь делает двойной щелчок левой кнопкой мыши, то оконная процедура последовательно получает сообщения WM_BUTT0ND0WN, WM_LBUTTONUP, WM_LBUTT0ND0WN и WM_LBUTTONUP.
Если класс окна определен с флагом CS_DBLCLKS, то после двойного щелчка оконная процедура получит сообщения WM_LBUTT0ND0WN, WM_LBUTTONUP, WM_LBUTTONDBLCLK и WM_LBUTTONUP. Легко заметить, что в этом случае второе сообщение WM_LBUTT0ND0WN заменяется сообщением WM_LBUTTONDBLCLK."