提问大富翁：草原骏马和znxia.....还是刚才那问题.(50)

Public Function AddHotKey(ByVal HotKey As vbKeyAll, Optional ByVal hCtrl As Boolean = False, Optional ByVal hAlt As Boolean = False, Optional ByVal hShift As Boolean = False) As Long这种又该如何定义呢？

VB的声明，在delphi中该如何定义呢？？？

VB中的vbKeyAll不知道对应于delphi中的什么类型。Function AddHotKey(Var HotKey : vbKeyAll; hCtrl:Boolean = False; hAlt :Boolean = False; hShift : Boolean = False) :Integer;

Public Enum vbKeyAll '枚举值,可根据自己的实际情况调整 vbKeyLButton = 1 '鼠标左键 ' vbKeyRButton = 2 '鼠标右键 ' vbKeyCancel = 3 'CANCEL 键 ' vbKeyMButton = 4 '鼠标中键 ' vbKeyBack = 8 'BACKSPACE 键 ' vbKeyTab = 9 'TAB 键 ' vbKeyClear = 12 'CLEAR 键 ' vbKeyReturn = 13 ' ENTER 键 ' vbKeyShift = 16 'SHIFT 键 ' vbKeyControl = 17 'CTRL 键 ' vbKeyMenu = 18 ' 菜单键 ' vbKeyPause = 19 'PAUSE 键 ' vbKeyCapital = 20 'CAPS LOCK 键 ' vbKeyEscape = 27 'ESC 键 ' vbKeySpace = 32 'SPACEBAR 键 ' vbKeyPageUp = 33 'PAGEUP 键 ' vbKeyPageDown = 34 'PAGEDOWN 键 ' vbKeyEnd = 35 'END 键 ' vbKeyHome = 36 'HOME 键 ' vbKeyLeft = 37 'LEFT ARROW 键 ' vbKeyUp = 38 'UP ARROW 键 ' vbKeyRight = 39 'RIGHT ARROW 键 ' vbKeyDown = 40 'DOWN ARROW 键 ' vbKeySelect = 41 'SELECT 键 ' vbKeyPrint = 42 'PRINT SCREEN 键 ' vbKeyExecute = 43 'EXECUTE 键 ' vbKeySnapshot = 44 'SNAP SHOT 键 ' vbKeyInser = 45 'INS 键 ' vbKeyDelete = 46 'DEL 键 ' vbKeyHelp = 47 'HELP 键 ' vbKeyNumlock = 144 'NUM LOCK 键 vbKeyA = 65 'A 键 vbKeyB = 66 'B 键 vbKeyC = 67 'C 键 vbKeyD = 68 'D 键 vbKeyE = 69 'E 键 vbKeyF = 70 'F 键 vbKeyG = 71 'G 键 vbKeyH = 72 'H 键 vbKeyI = 73 'I 键 vbKeyJ = 74 'J 键 vbKeyK = 75 'K 键 vbKeyL = 76 'L 键 vbKeyM = 77 'M 键 vbKeyN = 78 'N 键 vbKeyO = 79 'O 键 vbKeyP = 80 'P 键 vbKeyQ = 81 'Q 键 vbKeyR = 82 'R 键 vbKeyS = 83 'S 键 vbKeyT = 84 'T 键 vbKeyU = 85 'U 键 vbKeyV = 86 'V 键 vbKeyW = 87 'W 键 vbKeyX = 88 'X 键 vbKeyY = 89 'Y 键 vbKeyZ = 90 'Z 键 ' vbKey0 = 48 '0 键 ' vbKey1 = 49 '1 键 ' vbKey2 = 50 '2 键 ' vbKey3 = 51 '3 键 ' vbKey4 = 52 '4 键 ' vbKey5 = 53 '5 键 ' vbKey6 = 54 '6 键 ' vbKey7 = 55 '7 键 ' vbKey8 = 56 '8 键 ' vbKey9 = 57 '9 键 ' vbKeyNumpad0 = 96 '0 键 ' vbKeyNumpad1 = 97 '1 键 ' vbKeyNumpad2 = 98 '2 键 ' vbKeyNumpad3 = 99 '3 键 ' vbKeyNumpad4 = 100 '4 键 ' vbKeyNumpad5 = 101 '5 键 ' vbKeyNumpad6 = 102 '6 键 ' vbKeyNumpad7 = 103 '7 键 ' vbKeyNumpad8 = 104 ' 8 键 ' vbKeyNumpad9 = 105 '9 键 ' vbKeyMultiply = 106 '乘号 (*) 键 ' vbKeyAdd = 107 '加号 (+) 键 ' vbKeySeparator = 108 'ENTER 键（在数字小键盘上） ' vbKeySubtract = 109 '减号 (-) 键 ' vbKeyDecimal = 110 '小数点 (.) 键 ' vbKeyDivide = 111 '除号 (/) 键 vbKeyF1 = 112 'F1 键 vbKeyF2 = 113 'F2 键 vbKeyF3 = 114 'F3 键 vbKeyF4 = 115 'F4 键 vbKeyF5 = 116 'F5 键 vbKeyF6 = 117 'F6 键 vbKeyF7 = 118 'F7 键 vbKeyF8 = 119 'F8 键 vbKeyF9 = 120 'F9 键 vbKeyF10 = 121 'F10 键 vbKeyF11 = 122 'F11 键 vbKeyF12 = 123 'F12 键 vbKeyF13 = 124 'F13 键 vbKeyF14 = 125 'F14 键 vbKeyF15 = 126 'F15 键 vbKeyF16 = 127 'F16 键 End Enum 相对于delphi自定义枚举了

多人接受答案了。