盒子论坛 v2.1

我想按下"Shift"和"K"键时，调用另一个窗体，结果出错，请高手指点。下面是原程序。

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  if (Shift=ssShift) and (Key=ord(k)) then
  begin
    FrmRight:=TFrmRight.Create(Application);
    FrmRight.ShowModal;
  end;
end;
----------------------------------------------
-

作者：

szhjinf (当当)	★☆☆☆☆	-
	普通会员

2003/11/3 15:44:59

1楼：

已解决，太简单，不好意思，有劳各位高手。

解决方法为：

把 if (Shift=ssShift) and (Key=ord(k)) then 改为：

if (Shift=[ssShift]) and (Key=75) then

注：是在Delphi7.0上实现的。
----------------------------------------------
-

作者：

hongama (hongama)	★☆☆☆☆	-
	盒子活跃会员

2004/3/26 10:24:18

2楼：

Key Code  Corresponding key

Key_Escape  Escape key
Key_Tab  Tab key
Key_Backtab, Key_BackTab  Backtab key
Key_Backspace, Key_BackSpace  Backspace key
Key_Return  Return key
Key_Enter  Enter key
Key_Insert  Insert key
Key_Delete  Delete key
Key_Pause  Pause key
Key_Print  Print key
Key_SysReq  SysReq key
Key_Home  Home key
Key_End  End key
Key_Left  Left key
Key_Up  Up key

Key_Right  Right key
Key_Down  Down key
Key_Prior   Prior key
Key_PageUp  Page up key
Key_Next  Next key
Key_PageDown   Page down key
Key_Shift  Shift key
Key_Control  CTRL key
Key_Meta  Meta key (often this is the same as the Alt key)
Key_Alt  Alt key
Key_CapsLock  Caps Lock key
Key_NumLock  Num Lock key
Key_ScrollLock  Scroll Lock key
Key_F1  F1 key
Key_F2  F2 key
Key_F3  F3 key
Key_F4  F4 key

Key_F5  F5 key
Key_F6  F6 key
Key_F7  F7 key
Key_F8  F8 key
Key_F9  F9 key
Key_F10  F10 key
Key_F11  F11 key
Key_F12  F12 key
Key_F13  F13 key
Key_F14  F14 key
Key_F15  F1 key
Key_F16  F16 key
Key_F17  F17 key
Key_F18  F18 key
Key_F19  F19 key
Key_F20  F20 key
Key_F21  F21 key
Key_F22  F22 key
Key_F23  F23 key
Key_F24  F24 key
Key_F25  F25 key
Key_F26  F26 key
Key_F27  F27 key
Key_F28  F28 key
Key_F29  F29 key
Key_F30  F30 key
Key_F31  F31 key
Key_F32  F32 key

Key_F33  F33 key
Key_F34  F34 key
Key_F35  F35 key
Key_Super_L  Super_L key
Key_Super_R  Super_R key
Key_Menu  Menu key
Key_Hyper_L  Hyper_L key
Key_Hyper_R  Hyper_R key
Key_Help  Help key
Key_Space, Key_Any  Space key
Key_Exclam  Exclamation mark key (!)
Key_QuoteDbl  Double quotes key( “ )
Key_NumberSign  Number sign key (#)
Key_Dollar  Dollar sign key ($)
Key_Percent  Percent key (%)
Key_Ampersand  Ampersand key (&)

Key_Apostrophe  Apostrophe key (‘)
Key_ParenLeft  Left parenthesis key (
Key_ParenRight  Right parenthesis key )
Key_Asterisk  Asterisk key (*)
Key_Plus  Plus sign key (+)
Key_Comma  Comma key (,)
Key_Minus  Minus sign key (-)
Key_Period  Period key (.)
Key_Slash  Slash key (/)
Key_0  0 key (numeric keypad)
Key_1  1 key (numeric keypad)
Key_2  2 key (numeric keypad)

Key_3  3 key (numeric keypad)
Key_4  4 key (numeric keypad)
Key_5  5 key (numeric keypad)
Key_6  6 key (numeric keypad)
Key_7  7 key (numeric keypad)
Key_8  8 key (numeric keypad)
Key_9  9 key (numeric keypad)
Key_Colon  Colon key (:)
Key_Semicolon  Semicolon key (;)
Key_Less  Less than key (<)
Key_Equal  Equal to key (=)
Key_Greater  Greater than key (>)
Key_Question  Question mark key (?)

Key_At  At key @
Key_A  A key
Key_B  B key
Key_C  C key
Key_D  D key
Key_E  E key
Key_F  F key
Key_G  G key
Key_H  H key
Key_I  I key
Key_J  J key
Key_K  K key
Key_L  L key
Key_M  M key
Key_N  N key
Key_O  O key
Key_P  P key
Key_Q  Q key
Key_R  R key
Key_S  S key
Key_T  T key
Key_U  U key
Key_V  V key
Key_W  W key
Key_X  X key
Key_Y  Y key
Key_Z  Z key
Key_BracketLeft  Left bracket key ( [ )
Key_Backslash  Backslash key (\)

Key_BracketRight  Right bracket key (])
Key_AsciiCircum  Ascii Circum key (^)
Key_Underscore  Underscore key (_)
Key_QuoteLeft  Left quote key (`)
Key_BraceLeft  Left brace key ({)
Key_Bar  Bar key (|)
Key_BraceRight  Right brace key (})
Key_AsciiTilde  Ascii Tilde key (~)
Key_nobreakspace  No break space key ( )
Key_exclamdown  Upside down exclamation mark key (¡)
Key_cent  Cent key (¢)
Key_sterling  Sterling pound key (£)

Key_currency  Currency key (¤)
Key_yen  Yen key (¥)
Key_brokenbar  Broken bar key (¦)
Key_section  Section key (§)
Key_diaeresis  Diaeresis key (¨)
Key_copyright  Copyright key (©)
Key_ordfeminine  Feminine key (ª)
Key_guillemotleft  Left angle quotation mark («)
Key_notsign  Not sign key (¬)
Key_hyphen  Hyphen key ()
Key_registered  Registered key (®)
Key_macron  Macron key (¯)

Key_degree  degree key (°)
Key_plusminus  Plus minus key (±)
Key_twosuperior  Superscripted two key (²)
Key_threesuperior  Superscripted three key (³)
Key_acute  Acute key (´)
Key_mu  Mu key (µ)
Key_paragraph  Paragraph key (¶)
Key_periodcentered  Centered period key (·)
Key_cedilla  Cedilla key (¸)
Key_onesuperior  Superscripted one key (¹)
Key_masculine  Masculine key (º)

Key_guillemotright  Right angle quotation mark (»)
Key_onequarter  One-quarter key (¼)
Key_onehalf  One-half key (½)
Key_threequarters  Three-quarters key (¾)
Key_questiondown  Upside down question mark key (¿)
Key_Agrave  A grave key (À)
Key_Aacute  A acute key (Á)
Key_Acircumflex  A circumflex key (Â)
Key_Atilde  A tilde key (Ã)

Key_Adiaeresis  A diaeresis key (Ä)
Key_Aring  A ring key (Å)
Key_AE  AE key (Æ)
Key_Ccedilla  C cedilla key (Ç)
Key_Egrave  E grave key (È)
Key_Eacute  E acute key (É)
Key_Ecircumflex  E circumflex key (Ê)
Key_Ediaeresis  E diaeresis key (Ë)
Key_Igrave  I grave key (Ì)
Key_Iacute  I acute key (Í)
Key_Icircumflex  I circumflex key (Î)

Key_Idiaeresis  I diaeresis key (Ï)
Key_ETH  ETH key (Ð)
Key_Ntilde  N tilde key (Ñ)
Key_Ograve  O grave key (Ò)
Key_Oacute  O acute key (Ó)
Key_Ocircumflex  O circumflex key (Ô)
Key_Otilde  O tilde key (Õ)
Key_Odiaeresis  O diaeresis key (Ö)
Key_multiply  Multiply key (×)
Key_Ooblique  O oblique key (Ø)
Key_Ugrave  U grave key (Ù)

Key_Uacute  U acute key (Ú)
Key_Ucircumflex  U circumflex key (Û)
Key_Udiaeresis  U diaeresis key (Ü)
Key_Yacute  Y acute key (Ý)
Key_ssharp  S sharp key (ß)
Key_agrave  a grave key (à)
Key_aacute  a acute key (á)
Key_acircumflex  a circumflex key (â)
Key_atilde  a tilde key (ã)
Key_adiaeresis  a diaeresis key (ä)

Key_aring  a ring key (å)
Key_ae  Ae key (æ)
Key_ccedilla  c cedilla key (ç)
Key_egrave  e grave key (è)
Key_eacute  e acute key (é)
Key_ecircumflex  e circumflex key (ê)
Key_ediaeresis  e diaeresis key (ë)
Key_igrave  i grave key (ì)
Key_iacute  i acute key (í)
Key_icircumflex  i circumflex key (î)
Key_idiaeresis  i diaeresis key (ï)

Key_eth  eth key (ð)
Key_ntilde  n tilde key (ñ)
Key_ograve  o grave key (ò)
Key_oacute  o acute key (ó)
Key_ocircumflex  o circumflex key (ô)
Key_otilde  o tilde key (õ)
Key_odiaeresis  o diaeresis key (ö)
Key_division  Division sign key (÷)
Key_oslash  o slash key (ø)
Key_ugrave  u grave key (ù)
Key_uacute  u acute key (ú)

Key_ucircumflex  u circumflex key (û)
Key_udiaeresis  u diaeresis key (ü)
Key_yacute  y acute key (ý)
Key_thorn  Thorn key (þ)
Key_ydiaeresis  y diaeresis key (ÿ)
Key_unknown  Unknown key

----------------------------------------------
-

信息

登陆以后才能回复