Ver Mensaje Individual
  #8  
Antiguo 21-12-2017
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Reputación: 11
aguml Va por buen camino
He estado liado con esto y tengo ya mi archivo de recursos con dos cursores, uno para todo y otro para el link. El del link va perfecto pero el que quiero que se muestre en todo lo demas no funciona y me muestra el que tengo por defecto. He probado varias cosas pero lo que tengo ahora mismo es esto:
En el .cpp:
Código PHP:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    
//Pongo los cursores deseados para mi aplicacion
    
CursorOriginalDefault = ::GetCursor(); // Salvas tu cursor original
    
CursorOriginalLabelURL Screen->Cursors[crLink];
    
crOriginalLabelURL LabelURL->Cursor;

    ::
SetCursor(LoadCursor(HInstanceMAKEINTRESOURCE(crDefault))); // Siendo MI_CURSOR el ID del cursor en cursores.res
    
Screen->Cursors[crDefault] = LoadCursor(HInstance"ARROW");
    
Screen->Cursors[crLink] = LoadCursor(HInstance"LINK");
    
LabelURL->Cursor = (TCursor)crLink;
    ...
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *SenderTCloseAction &Action)
{
    ::
SetCursor(CursorOriginalDefault); // Restauras tu antiguo cursor
    
Screen->Cursors[crLink] = CursorOriginalLabelURL// Restauras tu antiguo cursor
    
LabelURL->Cursor crOriginalLabelURL;

En el .h:
Código PHP:
...
private:    
// User declarations
    //Necesarios para restaurar los cursores por defecto
    
enum{crDefaultcrLink};
    
TCursor crOriginalLabelURL;
    
HCURSOR CursorOriginalDefault;
    
HCURSOR CursorOriginalLabelURL;
    ... 
Espero puedas ayudarme y de paso quitar todo lo que sobre que estoy dando palos de ciego
Responder Con Cita