Mega Code Archive

 

Categories / Delphi / VCL

 

Catch SHIFT key during menu item selection

Title: Catch SHIFT key during menu item selection? procedure TForm1.Menu11Click(Sender: TObject); begin {Check if Shift key is down} if HiWord(GetKeyState(VK_SHIFT)) 0 then label1.Caption := 'Shift' else {Check if Ctrl key is down} if HiWord(GetKeyState(VK_CONTROL)) 0 then label1.Caption := 'Control' else {Check if Alt key is down} if HiWord(GetKeyState(VK_MENU)) 0 then label1.Caption := 'Alt' else label1.Caption := 'None'; end;