Часто задаваемые вопросы (FAQ) по работе с курсором мыши
Как переместить курсор мыши на X,Y
Для перемещения курсора используйте функцию:
SetCursorPos(X,Y);
Позиция курсора
Для того чтобы узнать позицию курсора напишите следующий код:
TPoint cPt; GetCursorPos(&cPt); ShowMessage(int(cPt.y)); //Возвращает y-позицию курсора мыши TPoint cPt; GetCursorPos(&cPt); ShowMessage(int(cPt.x)); //Возвращает x-позицию курсора мыши
Как ограничить перемещение курсора мыши
Для того чтобы ограничить перемещение курсора мыши какой-либо областью экран, напишите следующий код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
RECT LR;
LR.left=100;
LR.top=100;
LR.right=500;
LR.bottom=500;
ClipCursor(&LR);// Ограничиваем в заданой области
}
// Освободить курсор можно, передав функции NULL:
ClipCursor(NULL);
Как загрузить свой курсор
Напишите следующий код:
HWND i;
i=LoadImage(0,"cursor1.cur",IMAGE_CURSOR,0,0,LR_LOADFROMFILE);
if (i==0) ShowMessage("Ошибка загрузки курсора!");
else
{
Screen->Cursors[1]=i;
Form1->Cursor=1;
}
