关于注册热键的问题！！！！

[aningstar]

1：任意按键（包括组合键），在Edit中显示所按的键名，象Oicq的热键设置那样的功能如何实现？
2： registerhotkey(handle,hotkeyid,
MOD_CONTROL or mod_Altt,$41);
//敏感键为ctrl+Alt+A
如何做到注册任意键，也就是说，MOD_CONTROL or mod_Altt,$41如何用变量实现，我试了试，没有实现？
3：$41是A，谁能给我所有键位的值？

[aningstar]

问题2，3已解决
请帮忙给出1的代码或思路
谢谢

[aningstar]

不会没人知道吧
不可能啊？

[peterguo]

TVirtKey = (vkNone, vkCancel, vkBack, vkTab, vkClear, vkReturn, vkPause, vkCapital, vkEscape,
vkSpace, vkPrior, vkNext, vkEnd, vkHome, vkLeft, vkUp, vkRight, vkDown,
vkSelect, vkExecute, vkSnapshot, vkInsert, vkDelete, vkHelp,
vk0, vk1, vk2, vk3, vk4, vk5, vk6, vk7, vk8, vk9,
vkA, vkB, vkC, vkD, vkE, vkF, vkG, vkH, vkI, vkJ, vkK, vkL, vkM,
vkN, vkO, vkP, vkQ, vkR, vkS, vkT, vkU, vkV, vkW, vkX, vkY, vkZ,
vkNumpad0, vkNumpad1, vkNumpad2, vkNumpad3, vkNumpad4,
vkNumpad5, vkNumpad6, vkNumpad7, vkNumpad8, vkNumpad9,
vkMultiply, vkAdd, vkSeparator, vkSubtract, vkDecimal, vkDivide,
vkF1, vkF2, vkF3, vkF4, vkF5, vkF6, vkF7, vkF8, vkF9, vkF10, vkF11, vkF12,
vkF13, vkF14, vkF15, vkF16, vkF17, vkF18, vkF19, vkF20, vkF21, vkF22, vkF23, vkF24,
vkNumlock, vkScroll, vkApps);

VirtKeys : array[TVirtKey] of UInt =
($00, $03, $08, $09, $0C, $0D, $13, $14, $1B,
$20, $21, $22, $23, $24, $25, $26, $27, $28,
$29, $2B, $2C, $2D, $2E, $2F,
$30, $31, $32, $33, $34, $35, $36, $37, $38, $39,
$41, $42, $43, $44, $45, $46, $47, $48, $49, $4A,
$4B, $4C, $4D, $4E, $4F, $50, $51, $52, $53, $54,
$55, $56, $57, $58, $59, $5A,
$60, $61, $62, $63, $64, $65, $66, $67, $68, $69,
$6A, $6B, $6C, $6D, $6E, $6F,
$70, $71, $72, $73, $74, $75, $76, $77, $78, $79, $7A, $7B,
$7C, $7D, $7E, $7F, $80, $81, $82, $83, $84, $85, $86, $87,
$90, $91, $5D);

VirtKeyStr : array[TVirtKey] of string =
('None', 'Cancel', 'Back', 'Tab', 'Clear', 'Return', 'Pause', 'Capital', 'Escape',
'Space', 'Prior', 'Next', 'End', 'Home', 'Left', 'Up', 'Right', 'Down',
'Select', 'Execute', 'Snapshot', 'Insert', 'Delete', 'Help',
'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
'Numpad0', 'Numpad1', 'Numpad2', 'Numpad3', 'Numpad4',
'Numpad5', 'Numpad6', 'Numpad7', 'Numpad8', 'Numpad9',
'Multiply', 'Add', 'Separator', 'Subtract', 'Decimal', 'Divide',
'F1', 'F2', 'F3', 'F4', 'F5', 'F6', 'F7', 'F8', 'F9', 'F10', 'F11', 'F12',
'F13', 'F14', 'F15', 'F16', 'F17', 'F18', 'F19', 'F20', 'F21', 'F22', 'F23', 'F24',
'Numlock', 'Scroll', 'Apps');

[aningstar]

谢谢
不过问题1还没有解决

[光明山人]

用THotkey呀

[OysterLQD]

用win32面板下的hotkey控件

[aningstar]

ok
问题解决
给分
结贴

[hp1200]

up