小编Joe*_*Joe的帖子

我正在尝试从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

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

有人可以解释一下吗？