НУ а если принудить курсор находиться на форме - а там он невидим...
Добавлено @ 21:04
1. Как переместить курсор мыши на X,Y
| Код |
// Для перемещения курсора используйте функцию:
SetCursorPos(X,Y);
|
2. Позиция курсора
| Код |
// Для того чтобы узнать позицию курсора напишите следующий код:
TPoint cPt;
GetCursorPos(&cPt);
ShowMessage(int(cPt.y));//Возвращает y-позицию курсора мыши
TPoint cPt;
GetCursorPos(&cPt);
ShowMessage(int(cPt.x));//Возвращает x-позицию курсора мыши
|
3. Как ограничить перемещение курсора мыши
| Код |
// Для того чтобы ограничить перемещение курсора мыши какой-либо областью экран, напишите следующий код:
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);
|
4. Как загрузить свой курсор
| Код |
// Напишите следующий код:
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;
}
|
|