Tips (1541)

Tip Bewertung (17):

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;