我需要自己的三角形,所以我继承了我的三角类形式TShape并覆盖了paint方法.一切正常,但我需要用鼠标移动这些形状.我为每个形状处理onMouseDown事件设置了方法.搬家工作也很好.但是如果两个形状重叠(形状实际上是具有一些透明区域的矩形),则顶部的形状透明区域覆盖另一个形状,则顶部形状移动而不是下面的形状.这是正确的,这就是Delphi的工作方式.但这对用户来说并不直观.我怎样才能做到这一点？是否有可能不从事件队列中删除事件并将其发送到基础形状,如果是,它会很简单吗？
delphi events shape onmousedown
delphi ×1
events ×1
onmousedown ×1
shape ×1