step1 :
制作自己得mouse资源(res文件),然后:
step2:
const TCursor crMyCustomCursor=1; // ID for custom cursor
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
// load the cursor into the array.
// "CURSOR1" is the string identifer set using the Image Editor
Screen->Cursors[crMyCustomCursor]=LoadCursor((void*) HInstance,"CURSOR1");
}
Step 3: Assign the new cursor the to Screen->Cursor property whenever you want it to be the mouse cursor.