(C++ VCL) TMouse

Generate a 'drunk' cursor

TPoint here = Mouse->CursorPos;
here.x += random(3)-1;
here.y += random(3)-1;
Mouse->CursorPos = here;

Getting the Mouse cursor's position

const TPoint formPos = this->ScreenToClient(Mouse->CursorPos);
const String s = "Cursor at screen position ("
  + IntToStr(Mouse->CursorPos.x)
  + " , "
  + IntToStr(Mouse->CursorPos.y)
  + ")"
  + "\nCursor at Form position ("
  + IntToStr(formPos.x)
  + " , "
  + IntToStr(formPos.y)
  + ")";
ShowMessage(s);

'TMouse' Links

• C++ Builder
• C++ CLX
• Pascal VCL
• Pascal CLX