Ha a menüeseményekkel a Shift, Ctrl vagy Alt billentyük állapotától függö utasítást akarsz
végrehajtani, akkor a következő példában szemléltetett módon lehet megtudni, hogy az adott
billentyűk le vannak-e nyomva vagy sem mikor a menure kattintunk.

procedure TForm1.Menu1Click(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;