Отправлено POV 28 апреля 2004 г. 09:32

В обработчике перемещения мыши есть параметр "TShiftState Shift"
Как мне узнать а не "ssCtr" ли состояние шифта?
Оператор == и != отсутствуют.

• Ответ: if (Shift==(TShiftState()<<ssShift)) MainForm->Caption="Shift"; — lamerok   (28.04.2004 09:50, пустое)
  • нЯ понял. А где тут может быть вставлена проверка на конкретный шифт? — POV   (28.04.2004 09:53, пустое)
    • Ответ: .... — lamerok   (28.04.2004 10:05, 139 байт)
      • А можно чуть поаккуратнее - так мне опять не понятно:) — POV   (28.04.2004 10:09, пустое)
      • Ответ: if (Shift==(TShiftState()<<ssShift)) {if (GetKeyState(VK_LSHIFT)) MainForm->Caption="LeftSHIFT" ;else MainForm->Caption="RightSHIFT";} — lamerok   (28.04.2004 10:06, 1 байт)
        • Это я не умный - у меня же удерживатеся кнопка мыши вот и состояние шифта показывается соответсвующее... — POV   (28.04.2004 10:22, 102 байт)
        • :( Все компиляется, но проверка не работает (условие никогда не выполняется) — POV   (28.04.2004 10:15, пустое)
          • Ответ: в он маузе мове обработчик запихнул??? У меня это там запихнуто... — lamerok   (28.04.2004 10:19, 270 байт)
            • Но у меня еще и кнопка мыши удерживается - именно ее коду Shift и равен. Как быть? — POV   (28.04.2004 10:35, пустое)
              • с GetAsyncKeyState заработала, но как-то не по человечески в билдере изгаляться на API. Почти всегда убеждался что есть более простой путь, т.к. в Борланде обо всем уже подумали. — POV   (28.04.2004 10:39, пустое)
                • Ответ: Ты бы сразу описал,, что надо...а то покусочкам спрашиваешь-))) Потом окажеться, что еще пять клавишь удерживатеся.._)) — lamerok   (28.04.2004 11:54, пустое)
                • Ответ: Рад что вс езаработало-))) — lamerok   (28.04.2004 11:52, пустое)
                  • :) — POV   (28.04.2004 12:07, пустое)
          • Не работает собственно... — POV   (28.04.2004 10:17, 87 байт)
• Если это то, что Вам нужно, то Set::Contains — Bill   (28.04.2004 09:43, 235 байт)
  • Этим SET я сразу не проникся. Придется видиом его подробнее читать... — POV   (28.04.2004 09:50, 177 байт)
    • Просто в Delphi это сделано в виде множеств (sets), операции с которыми — Bill   (28.04.2004 11:36, 109 байт)
      • :( — POV   (28.04.2004 11:43, пустое)