Наши преимущества

курсор мыши

K

krivetko-man

Турист
Credits
0
как узнать какой в данный момент курсор мыши? Например указатель или рука? Все перерыл, нашел только как установить.
 
Код: 
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
 
Последнее редактирование модератором:
Как увидеть ссылки? | How to see hidden links?
Код: 
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;

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

что то не работает. поясню подробнее - мне надо знать какой курсор щас в другом окне. Конкретно в браузере опера.
 
Для ответа нужно войти/зарегистрироваться
Верх