使用onmousedown,onmouseup和click事件时无法捕获所有点击

Question

我正在尝试从TPanel组件创建自定义按钮.为此,我为onmousedown和onmouseup事件提供了一个覆盖(做一些绘图),并且我使用了onclick事件来处理点击.

不幸的是,如果我快速点击我的面板,其他每一次点击都会"丢失",但我无法弄清楚原因.

即便是最简单的例子也没有在这方面失败.我创建了一个新的VCL应用程序,添加了一个列表框,一个面板,并按如下方式实现了事件:

procedure TForm1.Panel1Click(Sender: TObject);
begin
  listbox1.Items.Add('click');
end;

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  listbox1.Items.Add('mouse down');
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  listbox1.Items.Add('mouse up');
end;

结果如下:

mouse down
click
mouse up
mouse down
mouse up

等等......每次点击都会被忽略,但我不明白为什么.

有人可以解释一下吗？

Answer 1

当您快速单击它时,您的面板正在处理双击.使用:

Panel1.ControlStyle := Panel1.ControlStyle - [csDoubleClicks]

将双击映射到点击.(在你的自定义控件集ControlStyle的构造函数中).

csDoubleClicks 控件可以接收并响应双击消息.否则,将双击映射到点击.

看到 TControl.ControlStyle