怎样调用我自己定义的这个鼠标呀（倾家荡产）

[yulinger]

我的资源文件
C1 CURSOR HARROW.CUR
S1 WAV chimes.wav
C2 CURSOR 3dwarro.cur
我想要在鼠标按下的时候变为c1,鼠标抬起的时候变为c2，（在图片上，image在panel上，我的程序在panel的onMouseUp和onMouseDown的事件里，Image->Align=alClient,Image的onMouseUp和onMouseDown分别＝panel的相应事件，
void __fastcall TForm2::Panel1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
const int C1=1;

Screen->Cursors[C1]=LoadCursor(HInstance,"C1");
Screen->Cursor=C1;
｝
void __fastcall TForm2::Panel1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
const int C2=2;
Screen->Cursors[C2]=LoadCursor(HInstance,"C2");
Screen->Cursor=C2 ;
｝
执行时能在鼠标按下时变为C1，但是鼠标抬起时没有变为c2,这是怎么回事呀，急得吐血，还有如果有更简单的办法，我只是想鼠标抬起之后形状变为正常的箭头形状

[seayuwen2628]

up以下

[seayuwen2628]

up

[gloom]

你在Panel1MouseUP中加个断点，看看LoadCursor有否成功。

[ccrun.com]

//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
::SetCursor(LoadCursor(HInstance, "C1"));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
::SetCursor(LoadCursor(NULL, IDC_ARROW));
}