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)

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