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(HInstance, MAKEINTRESOURCE(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 *Sender, TCloseAction &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{crDefault, crLink};
TCursor crOriginalLabelURL;
HCURSOR CursorOriginalDefault;
HCURSOR CursorOriginalLabelURL;
...
Espero puedas ayudarme y de paso quitar todo lo que sobre que estoy dando palos de ciego