Советы по Delphi
Перехват клавиши SHIFT во время выбора пункта меню
Попробуйте это:
| procedure TForm1.Menu11Click(Sender: TObject); begin {Проверяем нажатость клавиши Shift}if HiWord(GetKeyState(VK_SHIFT)) <> 0 thenLabel1.Caption := 'Shift'else{Проверяем нажатость клавиши Ctrl}if HiWord(GetKeyState(VK_CONTROL)) <> 0 thenLabel1.Caption := 'Control'else{Проверяем нажатость клавиши Alt}if HiWord(GetKeyState(VK_MENU)) <> 0 thenLabel1.Caption := 'Alt'elseLabel1.Caption := 'Никакая из управляющих клавиш не нажата';end; |
