Советы по Delphi

         

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



Содержание раздела