Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];

Вниз

Delphi Общие вопросы (клавиатура) 30.05.2002   Найти похожие ветки 

← →
eda   (2002-05-30 14:56) [0]

Подскажите, как программно отличить нажатие на клавиатуре
правого и левого Shift, Alt, Ctrl?

---

← →
Fredericco   (2002-05-30 14:59) [1]


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

end;

где

TShiftState = set of (ssShift, ssAlt, ssCtrl,
ssLeft, ssRight, ssMiddle, ssDouble);

Проверяешь

if Shift=[ssShift] then


---

← →
Fredericco   (2002-05-30 15:01) [2]

Сорри не то ляпнул. Вопрос не внимательно прочитал

---

← →
Kozhanov   (2002-05-30 15:04) [3]

> eda
Посмотри константы
VK_LSHIFT, VK_RSHIFT... в модуле Windows.pas

---

← →
eda   (2002-05-31 12:56) [4]

Эти константы мне известны, но, к сожалению , функции WinAPI непонятно как идентифицируют VK_LSHIFT и VK_RSHIFT (В обоих случаях результат 0)

---

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

Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.054 c