Teclas virtuais Delphi (Virtual Keys)

Exemplo:

 

procedure TFormCancITEM.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F5 then   // Calendário
    Interno108
  else if Key = VK_F6 then // Calculadora
    Interno109
  else if Key = VK_F7 then // Agenda
    Interno110;
  if Key = VK_Escape then
     begin
      TabGlobal.DITEMMESA.filter   := '';
      TabGlobal.DITEMMESA.filtered := false;
      DbGrid1.visible := false;
      close;
     end;
end;

 

Symbolic
constant name

Value
(hexadecimal)

Keyboard (or mouse) equivalent

VK_LBUTTON

01

Left mouse button

VK_RBUTTON

02

Right mouse button

VK_CANCEL

03

Control-break processing

VK_MBUTTON

04

Middle mouse button (three-button mouse)

VK_BACK

08

BACKSPACE key

VK_TAB

09

TAB key

VK_CLEAR

0C

CLEAR key

VK_RETURN

0D

ENTER key

VK_SHIFT

10

SHIFT key

VK_CONTROL

11

CTRL key

VK_MENU

12

ALT key

VK_PAUSE

13

PAUSE key

VK_CAPITAL

14

CAPS LOCK key

VK_ESCAPE

1B

ESC key

VK_SPACE

20

SPACEBAR

VK_PRIOR

21

PAGE UP key

VK_NEXT

22

PAGE DOWN key

VK_END

23

END key

VK_HOME

24

HOME key

VK_LEFT

25

LEFT ARROW key

VK_UP

26

UP ARROW key

VK_RIGHT

27

RIGHT ARROW key

VK_DOWN

28

DOWN ARROW key

VK_SELECT

29

SELECT key

VK_PRINT

2A

PRINT key

VK_EXECUTE

2B

EXECUTE key

VK_SNAPSHOT

2C

PRINT SCREEN key

VK_INSERT

2D

INS key

VK_DELETE

2E

DEL key

VK_HELP

2F

HELP key

Comentários