我正在尝试从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
等等……每次点击都会被忽略,但我不明白为什么.
有人可以解释一下吗？