| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проверка клавиш сдвига [D7, XP]

Vitaliy_____ ©   (2007-08-30 07:54:00) 

Интересует синтаксис:
В FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
надо организовать разные действия при нажатых Shift, ctrl и т.д.
Что-то не могу понять как if или case записать.
Shift=ssShift не канает, ssShift in Shift канает но не выполняется.

---

Vitaliy_____   (2007-08-30 08:18:00) [1]

Понятно, помогло. Спасибо.

---

MBo   (2007-08-30 08:10:00) [2]

Handled := True; поставь
иначе возникают два события, и во втором Shift меняется

---

Наверх