TGraphicControl - criando evento dblclick

Top  Previous  Next

============== 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;