Evento en Builder C++ 5
Quisiera hacer lo siguiente: quiero que cuando el puntero del ratón esté sobre una TLabel ésta cambie de color. Para ello necesito saber cual es el evento que indica la entrada del ratón dentro del componente y el de salida del componente. También me gustaría saber si conoces algún tutorial en internet sobre creación de componentes con builder c++ en español a ser posible. Gracias
1 respuesta
Respuesta de jlramirez
1
Primero necesitas crear un nuevo componente con ancestro >>TLabel<< con el menu: Component > New Component. Llamalo TLabelColor
Ahora abre el archivo "LabelColor.h" e inserta el siguiente código(primero borra la declaración de la clase):
//////////////////
class PACKAGE TLabelColor : public TLabel
{
Private:
TColor FColorEncima; //color de texto cuando el mouse este sobre el componente.
TColor FColorNormal; //color del texto cuando el mouse no este sobre el componente.
protected:
void __fastcall CMMouseEnter(TMessage& Message);
void __fastcall CMMouseLeave(TMessage& Message);
void __fastcall SetColorNormal(TColor AColorNormal);
public:
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CM_MOUSEENTER,TMessage,CMMouseEnter)
MESSAGE_HANDLER(CM_MOUSELEAVE,TMessage,CMMouseLeave)
END_MESSAGE_MAP(TLabel)
__fastcall TLabelColor(TComponent* Owner);
__published:
__property TColor ColorEncima =
{read = FColorEncima, write = FColorEncima, default = clWindowText};
__property TColor ColorNormal =
{read = FColorNormal, write = SetColorNormal, default = clWindowText};
};
//////////////
Ahora en "LabelColor.cpp" inserta el siguiente codigo:
//////////////
void __fastcall TLabelColor::CMMouseEnter(TMessage& Message)
{ //Aqui se atrapa cuando el mouse esta sobre el componente
Font->Color = FColorEncima;
}
void __fastcall TLabelColor::CMMouseLeave(TMessage& Message)
{//Aqui se atrapa cuando el mouse "sale" del componente
Font->Color = FColorNormal;
}
void __fastcall TLabelColor::SetColorNormal(TColor AColorNormal)
{//color del texto normal
FColorNormal = AColorNormal;
Font->Color = AColorNormal;
}
/////////////
Si tienes duda de como agregarlo a la paleta de componentes o como utilizar el componente escríbeme. Provecho!
Ahora abre el archivo "LabelColor.h" e inserta el siguiente código(primero borra la declaración de la clase):
//////////////////
class PACKAGE TLabelColor : public TLabel
{
Private:
TColor FColorEncima; //color de texto cuando el mouse este sobre el componente.
TColor FColorNormal; //color del texto cuando el mouse no este sobre el componente.
protected:
void __fastcall CMMouseEnter(TMessage& Message);
void __fastcall CMMouseLeave(TMessage& Message);
void __fastcall SetColorNormal(TColor AColorNormal);
public:
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CM_MOUSEENTER,TMessage,CMMouseEnter)
MESSAGE_HANDLER(CM_MOUSELEAVE,TMessage,CMMouseLeave)
END_MESSAGE_MAP(TLabel)
__fastcall TLabelColor(TComponent* Owner);
__published:
__property TColor ColorEncima =
{read = FColorEncima, write = FColorEncima, default = clWindowText};
__property TColor ColorNormal =
{read = FColorNormal, write = SetColorNormal, default = clWindowText};
};
//////////////
Ahora en "LabelColor.cpp" inserta el siguiente codigo:
//////////////
void __fastcall TLabelColor::CMMouseEnter(TMessage& Message)
{ //Aqui se atrapa cuando el mouse esta sobre el componente
Font->Color = FColorEncima;
}
void __fastcall TLabelColor::CMMouseLeave(TMessage& Message)
{//Aqui se atrapa cuando el mouse "sale" del componente
Font->Color = FColorNormal;
}
void __fastcall TLabelColor::SetColorNormal(TColor AColorNormal)
{//color del texto normal
FColorNormal = AColorNormal;
Font->Color = AColorNormal;
}
/////////////
Si tienes duda de como agregarlo a la paleta de componentes o como utilizar el componente escríbeme. Provecho!
Acerca del tutorial, puedes empezar en la página:
http://www.clubdelphi.com/manuales/
http://www.clubdelphi.com/manuales/
