Двойной щелчок мыши: два WM_LBUTTONUP на одно WM_LBUTTONDOWN
Добавлено: 2011-07-30 20:06:23
Делая двойной щелчок в клиентской зоне я проверял какие приходят 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;