Componentes - sobrepor evento

Top  Previous  Next

Type

    TMeuShape = Class(TShape)

        Procedure MouseDown(...); Override;

    end;

 

Procedure TMeuShape.MouseDown(...);

Begin

  // Teus esquemas...

  Inherited MouseDown(...);

End;

 

 

Crie um derivado de TShape (ou algum ancestral do mesmo) e sobrescreva 

os métodos MouseDown, MoveMove e MouseUp. 

Via de regra, estes métodos que possuem o mesmo nome do

evento mas sem o prefixo "on" (ou "before", "after", etc.), são os

responsáveis por invocar os eventos respectivos. Assim, chamar ou não o

evento associado é uma questão de chamar ou não "inherited;".