Propiedad tipo Objeto (TForm)

[buildero_d]

Que tal colegas,

Resulta que he creado un componente derivado de TListView, lo que intento es crear una nueva propiedad de tipo Objeto.... esta propiedad debe ser un apuntador a un Formulario.

Alguien me puede orientar para crear este tipo de propiedad.

El formulario que quiero ligar al componente esta en mi proyecto, aunque no siempre será el mismo.

Este es mi codigo para crear la propiedad...
Código:
private:
Forms::TForm *FForm;
void __fastcall SetForm(Forms::TForm* aValue);
protected:
public:

__published:
__property Forms::TForm* Form = {read=FForm, write=SetForm};



En el .cpp tengo la implementacion de la función SetForm Código:
void __fastcall TMiControl::SetForm(Forms::TForm* aValue)
{
FForm = aValue;
}


En el inspector de objetos puedo ver mi nueva propiedad de mi componente, pero al momento de asignarle un form en el Inspector de Objetos me marca el error "Invalid property value"

¿Por qué no me deja asignarlo?... ¿debo de hacer algo adicional?

Saludos y gracias anticipadas

[pprey]

Intenta lo siguiente:

Tu Código:

private:
Forms::TForm *FForm;
// Quita esto ->> void __fastcall SetForm(Forms::TForm* aValue);
protected:
public:

__published:

//Mira la diferencia de en el write de la propiedad con respecto a lo
//que tienes tu puesto en el write. Yo digo que escriba directamente en
// FForm

__property Forms::TForm* Form = {read=FForm, write=FForm};

// Todo esto se puede quitar.

/*
En el .cpp tengo la implementacion de la función SetForm Código:
void __fastcall TMiControl::SetForm(Forms::TForm* aValue)
{
FForm = aValue; // Tienes que darte cuenta que son punteros.
}
*/