eigenen Cursor laden

Wie sieht denn nun der Code aus?

Spider Man

so

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"

const crMyCursor = 1;

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Screen->Cursors[crMyCursor] = LoadCursor(HInstance, "Cursor1");
Cursor = crMyCursor;

}
//---------------------------------------------------------------------------

Screen->Cursor = crMyCursor;

"Cursor1" ist auch der Name in der RES-Datei?

Prüfe das Laden derart ab:

if(LoadCursor(HInstance, "Cursor1")==NULL)
{
DWORD error=GetLastError();
}

In der Hife zur WIN 32 API kannst du nachschauen was die Fehlernummer bedeuetet.

Spider Man

Ups war falsch.Ich hab jetzt den Namen der *res-Datei anstelle von "Cursor1" eingegeben. Geht aber immer noch nicht.
Bei deiner Eingabe mit dem if-Block passiert auch nichts neues.

Doch in error steht eine Fehlernummer

Ich hab jetzt den Namen der *res-Datei anstelle von "Cursor1" eingegeben

Wer hat das gesagt??

Name in der RES-Datei?

Der Name des Cursors IN der Res-Datei

Spider Man

Hab nun den Namen des Cursors in der RES Datei und im Code geändert.
Dann ging es plötzlich :D.
Wen es interessiert:

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"

const crMyCursor = 1;

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Screen->Cursors[crMyCursor] = LoadCursor(HInstance, "MYCURSOR");
Cursor = crMyCursor;

}
//---------------------------------------------------------------------------

Puuuuhhhh