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

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

即便是最简单的例子也没有在这方面失败.我创建了一个新的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

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

有人可以解释一下吗？