TGraphicControl - criando evento dblclick

============== Criar um evento dblclick em um GraphicControl ===============

  TMdArrow = class (TGraphicControl)

  private

    fArrowDblClick: TNotifyEvent;

    // esta abaixo é executada quando o Window dispara o evento para dlbclick

    procedure WMLButtonDblClk (var Msg: TWMLButtonDblClk); message wm_LButtonDblClk;

  protected

    procedure Paint; override;

    procedure ArrowDblClick; dynamic;  <---- Isto permite que componentes descendentes possam ver e alterar o evento

  published

    property OnArrowDblClick: TNotifyEvent read fArrowDblClick write fArrowDblClick;

procedure TMdArrow.ArrowDblClick;

begin

  // chama o tratamento, se disponível

  if Assigned (fArrowDblClick) then fArrowDblClick (Self);

end;

procedure TMdArrow.WMLButtonDblClk(var Msg: TWMLButtonDblClk);

begin

  inherited;

  DoAnyThing....

end;