继承TShape的控件增加鼠标双击事件

Question

我自己写了个控件，从TShape继承来的。
type
  TExShape = class(TShape)大家知道TShape没有鼠标的单击和双击事件。我现在想把这两个事件增加到我自己的控件中（TExShape），请问如何实现？谢谢了先！！！

Answer 1

type
  TShape = class(ExtCtrls.TShape)
  private
    procedure WMLBUTTONDOWN(var Message: TMessage); message WM_LBUTTONDOWN;
    procedure WMLBUTTONDBLCLK(var Message: TMessage); message WM_LBUTTONDBLCLK;
  end;