Iconos y colores en controles fallan

[aguml]

No se me ocurría un título más descriptivo que este pero en realidad lo que pasa es que, por ejemplo, si añado un TLabel a un form y le intento por ejemplo poner la propiedad Mouse=crLinkSelect me da una excepcion al arrancar el proceso y eso pasa con muchos mas cursores.
Lo mismo pasa con los colores del componente, muchos tienen el mismo comportamiento.
Al dar dicha excepcion para aqui:
Forms.hpp:

Código PHP:

/* TCustomForm.Create */ inline __fastcall virtual TForm(Classes::TComponent* AOwner) : TCustomForm(AOwner) { } 


La verdad es que es una limitacion bastante grande y he tenido que poner el color y el puntero mas parecido a lo que quería poner y me gustaría saber como solucionarlo para poder elegir dicho puntero y el color que quiero de los listados de las propiedades del control.

[ecfisa]

Hola.

crLinkSelect no es un identificador válido para la propiedad TControl->Cursor, es decir que no se puede asignar ese valor a la propiedad TLabel->Cursor.

¿ Estamos hablando del componente TLabel de VCL o es otro de terceros ?

Saludos

[ecfisa]

Hola de nuevo.

Me quedé pensando si la pregunta se encaminaba por otro lado... Y el valor crLinkSelect, tampoco es válido para la propiedad Cursor de Screen, por ejemplo la asignación:

Código PHP:

  Screen->Cursor = crLinkSelect; 


provocará el error de compilación: Undefined symbol 'crLinkSelect'

Saludos

[aguml]

Es un TLabel de la VCL estandar. He creado una etiqueta la cual funciona como un link a una página y la idea es que al poner el puntero encima se comporte como un link y para ello se usa ese cursor. La verdad es que no entiendo como viene en el desplegable del cursor en la propiedades del TLabel y no es válido. Lo probé con el form y algunos componentes más y no era válido en ninguno. ¿La única solución sería descargarme el cursor y meterlo en los recursos para usarlo desde allí?

[ecfisa]

Hola.

¿ Y no te sirve ajustar la propiedad Cursor de los Labels ?

Ejemplo:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  for(int i = 0; i < ControlCount; i++)
    if (Controls[i]->ClassNameIs("TLabel"))
      ((TLabel*)Controls[i])->Cursor = crHandPoint;  // cursor mano
} 


¿ O también deseabas cambiar el color de la fuente cuando pase el cursor por encima ?

Saludos

[aguml]

Así lo tengo aunque ese cursor parece de Windows 95 y el crLinkSelect se ve más moderno.