Evento cuando se crea un componente sobre el mio

[delphiladero]

No he sabido como explicarlo mejor, Tengo un componente TPlano que hereda de TScrollBox, pretendo que sea un plano donde ir poniendo objetos, TImages, lineas, etc, el caso es que necesitaría saber cuando cuando se crea un componente sobre el en tiempo de ejecución, no sé si existe, osea

Var
plano:TPlano;
imagen:TImage;

.........

procedure ......
begin
imagen:=TImage(plano); // Aqui se genera algun evento en Plano ?


Gracias por adelantado.

[Neftali [Germán.Estévez]]

Puedes echarle un vistazo a la clase TComponent de la VCL, a ver qué cosas puedes redefinir.

Por ejemplo, al crear un nuevo componente, se genera una notificación del tipo:

Código Delphi [-]
  ....  Al insertar el TImage..
  AOwner.InsertComponent(Self);

  ...
  Notification(AComponent, opInsert);

Este método Notification se puede sobreescribir; Puedes probar por ahí.

También hay un método:

Código Delphi [-]
  procedure ValidateInsert(AComponent: TComponent); dynamic;

que podrías capturar y que se ajecutará (si no me equivoco) al intantar insertar el nuevo componente sobre el plano.

Otra opción podría ser que modifiques la Clase TPlano para añadirle un método que llames cuando se añada un nuevo elemento.

Código Delphi [-]
  imagen:=TImage(plano); // Aqui se genera algun evento en Plano ?
  plano.UpdateElements;