Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c