[Sonic]

Estimado Cadetill:

He respasado el código Delphi aunque no estoy muy ducho en la sintaxis de Delphi creo que es exáctamente lo que yo hago. Pero me alegra ver que ya más o menos se sabe por donde van los tiros.

Pego a continuación mi código:

 
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
 
static inline void ValidCtrCheck(TSRichEdit *)
{
  new TSRichEdit(NULL);
}
//---------------------------------------------------------------------------
__fastcall TSRichEdit::TSRichEdit(TComponent* Owner)
: TRichEdit(Owner)
{
  ExOnSelectionChange=false;
  Primer_evento=false;
} 
//---------------------------------------------------------------------------
namespace Srichedit
{
	void __fastcall PACKAGE Register()
  {
	TComponentClass classes[1] = {__classid(TSRichEdit)};
	RegisterComponents("Samples", classes, 0);
  }
}
//---------------------------------------------------------------------------
void __fastcall TSRichEdit::WndProc (Messages::TMessage &Message)
{
  if (!Primer_evento)
  { 
	{
	   Primer_evento=true;
	   if (OnSelectionChange!=NULL)
	   {
		 ExOnSelectionChange=true;
		 FExOnSelectionChange=OnSelectionChange;
	   }
 
	   OnSelectionChange=FInOnSelectionChange;
	   ShowMessage("Hola quillo 0");
	   OnSelectionChange=FExOnSelectionChange;
	 }
   }
 
  TWinControl::WndProc(Message);
}
//---------------------------------------------------------------------------
void __fastcall TSRichEdit::FInOnSelectionChange (TObject *Sender)
{
  ShowMessage("Hola Quillo 1");
  if (ExOnSelectionChange)
  FExOnSelectionChange(Owner);
}
//---------------------------------------------------------------------------

Según entiendo yo, es lo mismo, salvo que el puntero a la funcion FExOnSelectionChange no lo he declarado como una propiedad. El problema sigue siendo el mismo, mientras estoy en modo de diseño de la aplicación. El componente se ejecuta y en la linea en la que se suplanta el MAnejador del evento, se porvoca el borrado de la citada casilla en el Inspector de objetos

Te dejo el código por si puedes darme alguna pista
Gracias