Перехват клавиши SHIFT во время выбора пункта меню
Пришел програмист в гости к пианисту. Очень долго ходил вокруг рояля и озвучивает свои наблюдения:
- Клавиатура не стандартная - 64 клавиши вместо 101, половина из них функциональные, но вот shift ногой нажимать-оригинально!
procedure TForm1.Menu11Click(Sender: TObject);
begin{Проверяем нажатость клавиши Shift}if HiWord(GetKeyState(VK_SHIFT)) <> 0 then
Label1.Caption := 'Shift'
else{Проверяем нажатость клавиши Ctrl}if HiWord(GetKeyState(VK_CONTROL)) <> 0
then
Label1.Caption := 'Control'
else{Проверяем нажатость клавиши Alt}if HiWord(GetKeyState(VK_MENU)) <> 0
then
Label1.Caption := 'Alt'
else
Label1.Caption := 'Никакая из управляющих клавиш не нажата';
end;
Статья Перехват клавиши SHIFT во время выбора пункта меню раздела Компоненты и Классы Меню может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.