курсор мыши

[krivetko-man]

как узнать какой в данный момент курсор мыши? Например указатель или рука? Все перерыл, нашел только как установить.

 

[asm64d]

Spoiler: unit Controls

type
  TCursor = -32768..32767;

const
  crDefault     = TCursor(0);
  crNone        = TCursor(-1);
  crArrow       = TCursor(-2);
  crCross       = TCursor(-3);
  crIBeam       = TCursor(-4);
  crSize        = TCursor(-22);
  crSizeNESW    = TCursor(-6);
  crSizeNS      = TCursor(-7);
  crSizeNWSE    = TCursor(-8);
  crSizeWE      = TCursor(-9);
  crUpArrow     = TCursor(-10);
  crHourGlass   = TCursor(-11);
  crDrag        = TCursor(-12);
  crNoDrop      = TCursor(-13);
  crHSplit      = TCursor(-14);
  crVSplit      = TCursor(-15);
  crMultiDrag   = TCursor(-16);
  crSQLWait     = TCursor(-17);
  crNo          = TCursor(-18);
  crAppStart    = TCursor(-19);
  crHelp        = TCursor(-20);
  crHandPoint   = TCursor(-21);
  crSizeAll     = TCursor(-22);

case Form1.Cursor of
  TCursor(-21): <....>;
  ...
 else
 ShowMessage('Пользовательский курсор');
end;

Подозреваю что есть еще какой-нибудь красивый способ, но что-то больше ничего на ум не приходит.

add 06.08.2009 22:48

Подозреваю что есть еще какой-нибудь красивый способ

Так и есть - TCursorInfo и GetCursorInfo

 

[krivetko-man]

Spoiler: unit Controls

type
  TCursor = -32768..32767;

const
  crDefault     = TCursor(0);
  crNone        = TCursor(-1);
  crArrow       = TCursor(-2);
  crCross       = TCursor(-3);
  crIBeam       = TCursor(-4);
  crSize        = TCursor(-22);
  crSizeNESW    = TCursor(-6);
  crSizeNS      = TCursor(-7);
  crSizeNWSE    = TCursor(-8);
  crSizeWE      = TCursor(-9);
  crUpArrow     = TCursor(-10);
  crHourGlass   = TCursor(-11);
  crDrag        = TCursor(-12);
  crNoDrop      = TCursor(-13);
  crHSplit      = TCursor(-14);
  crVSplit      = TCursor(-15);
  crMultiDrag   = TCursor(-16);
  crSQLWait     = TCursor(-17);
  crNo          = TCursor(-18);
  crAppStart    = TCursor(-19);
  crHelp        = TCursor(-20);
  crHandPoint   = TCursor(-21);
  crSizeAll     = TCursor(-22);

case Form1.Cursor of
  TCursor(-21): <....>;
  ...
 else
 ShowMessage('Пользовательский курсор');
end;

Подозреваю что есть еще какой-нибудь красивый способ, но что-то больше ничего на ум не приходит.

что то не работает. поясню подробнее - мне надо знать какой курсор щас в другом окне. Конкретно в браузере опера.

 

[asm64d]

Занятный вопросец
GetCursor Function
GetCursorInfo Function
CURSORINFO Structure

Вообщем GetCursorInfo и TCursorInfo возможно помогут тебе