Курсор мыши
- Как переместить курсор мыши на X,Y
- Позиция курсора
- [*] Как ограничить перемещение курсора мыши
- Как загрузить свой курсор
- Как переместить курсор мыши на 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;
}
Автор: ant47
Наверх