Курсор мыши

// Для перемещения курсора используйте функцию:
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;

  }

Автор:

Содержание раздела

---

---