helldanger1
GForum VIP
- Entrou
- Ago 1, 2007
- Mensagens
- 29,631
- Gostos Recebidos
- 1
Podemos alterar a forma que o cursor terá quando estiver sobre determinado componente através da propriedade Cursor no Object Inspector ou em tempo de execução através do código.
Em certas ocasiões, pode ser conveniente fazer o ponteiro do cursor desaparecer quando estiver sobre o componente. O código abaixo faz isso:
void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
// cursor invisível
Sleep(600); // o ponteiro aguardará um pouco para desaparecer ou reaparecer
Screen->Cursor = crNone;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
// cursor visível
Screen->Cursor = crDefault;
}
Em certas ocasiões, pode ser conveniente fazer o ponteiro do cursor desaparecer quando estiver sobre o componente. O código abaixo faz isso:
void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
// cursor invisível
Sleep(600); // o ponteiro aguardará um pouco para desaparecer ou reaparecer
Screen->Cursor = crNone;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
// cursor visível
Screen->Cursor = crDefault;
}