Clase que contiene una Timage

[astwin]

No puedo realizar eso, ya lo he intentado.

Código Delphi [-]
  image:=TImage.Create(self); // Propietario seria el TgraphBlock 
  image.parent:=Panel1; // pertenece al panel

Me da un error "[DCC Error] BloquesGraficos.pas(248): E2010 Incompatible types: 'TComponent' and 'TgraphBlock'"

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

¿Puedes hacer este cambio?

Código Delphi [-]
type TgraphBlock=class(TComponent)

[astwin]

Pues en principio creo q no, ya que la tengo declarada como que hereda de Tpersistent

Código Delphi [-]
type TgraphBlock=class(Tpersistent)

¿alguna sugerencia mas?

Por cierto, muchas gracias por toda la ayuda y por tu interes.

[astwin]

Ya esta resuelto. Como el metodo TgraphBlock.ImageMouseDown se lo asigno al evento onMouseDown de la imagen, dentro de este metodo self se refiere al objeto del tipo TgrahBlock, y sender hace referencia a la imagen.