| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
777
Lt
Registrado: 01 Feb 2006Mensajes: 87
|
 Publicado: Dom 22 Abr, 2007 5:51 am Asunto: cambiar cursor en un TEdit |
 |
|
| Al poner el fondo de un TEdit en rojo y usando WinXP el cursor apenas se distingue y deseo cambiarlo por otro mas visible. Alguien sabe como? |
|
| Volver arriba |
|
 |
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Lun 23 Abr, 2007 7:25 am Asunto: |
|
|
En la ayuda tienes los distintos tipos:
crDefault 0
crNone -1
crArrow -2
crCross -3
crIBeam -4
crSizeNESW -6
crSizeNS -7
crSizeNWSE -8
crSizeWE -9
crUpArrow -10
crHourGlass -11
crDrag -12
crNoDrop -13
crHSplit -14
crVSplit -15
crMultiDrag -16
crSQLWait -17
crNo -18
crAppStart -19
crHelp -20
crHandPoint -21
crSize -22 (obsolete)
crSizeAll -22
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Lun 23 Abr, 2007 8:59 am Asunto: |
|
|
la otra manera es que carges un cursor.bmp (puedes crear uno tu mismo
y usar el siguiente codigo dentro de los componentes que vas a cambiarles el cursor
en el archivo .h
| Código: | private:
Graphics::TBitmap *Cursor;
void __fastcall CambiarCaret(TWinControl *Componente); |
en la parte del archivo .cpp
| Código: | //--------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//--------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Cursor = new Graphics::TBitmap();
Cursor->LoadFromFile("caret.bmp");// cargas el cursor echo por ti
}
//--------------------------------
void __fastcall TForm1::CambiarCaret(TWinControl *Componente)
{
CreateCaret(Componente->Handle, Cursor->Handle, 0, 0);
ShowCaret(Componente->Handle);
}
//--------------------------------
|
y puedes asignarlo cada vez que entres al componente ejemplo:
| Código: | void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
CambiarCaret(this->Edit1);
}
//--------------------------------------------------------------------------- |
_________________
Ultima edición por Cesar C. Salazar Gonzalez el Mar 24 Abr, 2007 7:16 am, editado 1 vez |
|
| Volver arriba |
|
|
777
Lt
Registrado: 01 Feb 2006Mensajes: 87
|
| Publicado: Mar 24 Abr, 2007 12:40 am Asunto: |
|
|
| gracias. |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
