Проверка клавиш сдвига

← →
Vitaliy_____ (2007-08-30 07:54) [0]

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

← →
MBo © (2007-08-30 08:10) [1]

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

← →
Vitaliy_____ (2007-08-30 08:18) [2]

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

Проверка клавиш сдвига Найти похожие ветки