OnKeyUp

var key_Lst=new Array(
"VK_ADD",
"VK_BACK",
"VK_CANCEL",
"VK_CAPITAL",
"VK_CLEAR",
"VK_CONTROL",
"VK_DECIMAL",
"VK_DELETE",
"VK_DIVIDE",
"VK_DOWN",
"VK_END",
"VK_ESCAPE",
"VK_HELP",
"VK_HOME",
"VK_INSERT",
"VK_LBUTTON",
"VK_LCONTROL",
"VK_LEFT",
"VK_LMENU",
"VK_LSHIFT",
"VK_LWIN",
"VK_MBUTTON",
"VK_MENU",
"VK_MULTIPLY",
"VK_NEXT",
"VK_NUMLOCK",
"VK_PAUSE",
"VK_PRIOR",
"VK_RBUTTON",
"VK_RCONTROL",
"VK_RETURN",
"VK_RIGHT",
"VK_RMENU",
"VK_RSHIFT",
"VK_RWIN",
"VK_SCROLL",
"VK_SHIFT",
"VK_SLEEP",
"VK_SNAPSHOT",
"VK_SPACE",
"VK_SUBTRACT",
"VK_TAB",
"VK_XBUTTON1",
"VK_XBUTTON2",
"VK_UP"
);

// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие визуальных компонентов OnKeyUp";
frm.Width =450;
frm.Height=300;
frm.OnKeyUp=frm_KeyUp;

lb1=new TLabel(frm);
lb1.Caption="Отжата клавиша: ";
lb1.Left=15;
lb1.Top =(frm.ClientHeight-lb1.Height)/2;

lb2=new TLabel(frm);
lb2.Left=lb1.Left+lb1.Width;
lb2.Top =lb1.Top;
lb2.Font.Style=fsBold;

frm.ShowModal();

// Обработчик события OnKeyUp
function frm_KeyUp(frm,Key,Shift)
{
  var i,key_Val=Key.Value;

  lb2.Caption="";

  // Состояние управляющих клавиш
  if (Shift & ssShift)
    lb2.Caption="VK_SHIFT";
  if (Shift & ssAlt)
    lb2.Caption="VK_MENU";
  if (Shift & ssCtrl)
    lb2.Caption="VK_CONTROL";

  if (lb2.Caption!="")
    return;

  // Клавиши по списку
  for (i=0;i<key_Lst.length;i++)
    if (key_Val==eval(key_Lst[i])) {
      lb2.Caption=key_Lst[i];
      return;
    }

  // F1 - F24
  if ((key_Val>=VK_F1) && (key_Val<=VK_F24)) {
    lb2.Caption="VK_F"+(key_Val-VK_F1+1);
    return;
  }

  // VK_NUMPAD0 - VK_NUMPAD9
  if ((key_Val>=VK_NUMPAD0) && (key_Val<=VK_NUMPAD9)) {
    lb2.Caption="VK_NUMPAD"+(key_Val-VK_NUMPAD0);
    return;
  }

  // Прочие клавиши
  lb2.Caption="'"+String.fromCharCode(key_Val)+"'";
}