Перехват клавиши 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;
|