怎样模拟键盘输入组合键？(100分)

DreamTiger · 2000-04-26

想对Memo模拟输入Shift+Ctrl+I键，不知该怎么做？ Memo1.Preform(WM_KEYDOWN,WParam,lParam) 的WParam应该怎么写？

Nose · 2000-04-26

用SendMessage我觉的很难，WM_KeyDown的WParam太复杂了，用下面的吧   keybd_event( VK_MENU, MapVirtualKey( VK_MENU, 0 ), 0 , 0 );     // Alt down   keybd_event( VK_DOWN, MapVirtualKey( VK_DOWN, 0 ), 0 , 0 );     // down arrow key down   keybd_event( VK_DOWN, MapVirtualKey( VK_DOWN, 0 ), KEYEVENTF_KEYUP , 0 );  // down arrow key up   keybd_event( VK_MENU, MapVirtualKey( VK_MENU, 0 ), KEYEVENTF_KEYUP , 0 );  // Alt key up 经本人试验，确实可行，另加补充：    Ctrl: VK_CONTROL    SHIFT:VK_SHIFT    TAB:  VK_TAB    'A':  byte('A')

DreamTiger · 2000-04-26

我的程序中组合键是一个控件在KeyDown 中监视的，我现在需要 在单击某个菜单后，对这个控件进行模拟输入这个组合键。同时 为了让用户知道有这个功能，把这个组合键作为了这个菜单的快 捷键。我想要做的就是在这个菜单项的执行中对这个控件进行模 拟输入Shift+Ctrl+I。 Nose：你的方法我试了，不行。

popeye · 2000-04-26

本月第15名你好,第16名向你问候!咱两能挨着也是缘分,xixi. TWinControl有KeyDown方法,是动态的.TEdit,TMemo等控件没有继承下来, 但是TForm却有.使用很方便的,只需要指明key和shift. 如果在memo1中监视组合键,可以这样: 1.设置Form的KeyPreview:=true; 2.Form的OnKeyDown事件: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState); begin      if (shift=[ssShift,ssCtrl]) and (Key=$49) then         memo1.OnKeyDown(Sender,Key,[ssShift,ssCtrl]); end; 3.我这里用按钮模拟输入组合键: procedure TForm1.Button1Click(Sender: TObject); var    mykey:word; begin      mykey:=$49;      form1.KeyDown(mykey,[ssCtrl,ssShift]); end; 4.下面就是memo1中的OnKeyDown了: procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin      if (shift=[ssShift,ssCtrl]) and (key=$49) then         showmessage('Ctrl+Shift+I pressed'); end; 已经试验通过

wind2000 · 2000-04-27

咱是无名只能同意第16名的

popeye · 2000-04-27

哎,真是"脱裤子放屁,多费手续"...

) 其实能更简单的: 1. procedure TForm1.Button1Click(Sender: TObject); var    key:word; begin      key:=$49;      memo1.OnKeyDown(memo1,key,[ssctrl,ssshift]); end; 2. procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin      if (key=$49) and (Shift=[ssctrl,ssshift]) then          showmessage('Ctrl+Shift+I pressed'); end; 什么keypreview不用管它的.

DreamTiger · 2000-04-27

popeye:   呵呵，如果这么简单我就不用问了。

问题就是memo1的调用不是在OnKeyDown中，它是一个私有函数，监视了 键盘，也就是说是KeyDown，而不是OnKeyDown。我不想把控件的私有函数 公有化，只能对它模拟键盘输入了。 Nose:   能不能讲讲这个复杂的WM_KeyDown的WParam？

Billy · 2000-04-27

WM_KEYDOWN   nVirtKey = (int) wParam;    // virtual-key code wParam中放的就是键值。 lKeyData = lParam;          // key data　lParam中记录了一些有关的数据，如击键次数，扫描码什么的。 Parameters nVirtKey Value of wParam. Specifies the virtual-key code of the nonsystem key. lKeyData Value of lParam. Specifies the repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag, as shown in the following table: Value Description 0-15 Specifies the repeat count. The value is the number of times the keystroke is repeated as a result of the user holding down the key. 16-23 Specifies the scan code. The value depends on the original equipment manufacturer (OEM). 24 Specifies whether the key is an extended key, such as the right-hand ALT and CTRL keys that appear on an enhanced 101- or 102-key keyboard. The value is 1 if it is an extended key; otherwise, it is 0. 25-28 Reserved; do not use. 29 Specifies the context code. The value is always 0 for a WM_KEYDOWN message. 30 Specifies the previous key state. The value is 1 if the key is down before the message is sent, or it is 0 if the key is up. 31 Specifies the transition state. The value is always 0 for a WM_KEYDOWN message. 键值表： Symbolic constant name Value (hexadecimal) Mouse or keyboard 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)  ? 05-07 Undefined VK_BACK 08 BACKSPACE key VK_TAB 09 TAB key  ? 0A-0B Undefined VK_CLEAR 0C CLEAR key VK_RETURN 0D ENTER key  ? 0E-0F Undefined 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  ? 15-19 Reserved for Kanji systems  ? 1A Undefined VK_ESCAPE 1B ESC key  ? 1C-1F Reserved for Kanji systems 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  ? 2A Original equipment manufacturer (OEM) specific VK_EXECUTE 2B EXECUTE key VK_SNAPSHOT 2C PRINT SCREEN key for Windows 3.0 and later VK_INSERT 2D INS key VK_DELETE 2E DEL key VK_HELP 2F HELP key VK_0 30 0 key VK_1 31 1 key VK_2 32 2 key VK_3 33 3 key VK_4 34 4 key VK_5 35 5 key VK_6 36 6 key VK_7 37 7 key VK_8 38 8 key VK_9 39 9 key  ? 3A-40 Undefined VK_A 41 A key VK_B 42 B key VK_C 43 C key VK_D 44 D key VK_E 45 E key VK_F 46 F key VK_G 47 G key VK_H 48 H key VK_I 49 I key VK_J 4A J key VK_K 4B K key VK_L 4C L key VK_M 4D M key VK_N 4E N key VK_O 4F O key VK_P 50 P key VK_Q 51 Q key VK_R 52 R key VK_S 53 S key VK_T 54 T key VK_U 55 U key VK_V 56 V key VK_W 57 W key VK_X 58 X key VK_Y 59 Y key VK_Z 5A Z key VK_LWIN 5B Left Windows key (Microsoft Natural Keyboard) VK_RWIN 5C Right Windows key (Microsoft Natural Keyboard) VK_APPS 5D Applications key (Microsoft Natural Keyboard)  ? 5E-5F Undefined VK_NUMPAD0 60 Numeric keypad 0 key VK_NUMPAD1 61 Numeric keypad 1 key VK_NUMPAD2 62 Numeric keypad 2 key VK_NUMPAD3 63 Numeric keypad 3 key VK_NUMPAD4 64 Numeric keypad 4 key VK_NUMPAD5 65 Numeric keypad 5 key VK_NUMPAD6 66 Numeric keypad 6 key VK_NUMPAD7 67 Numeric keypad 7 key VK_NUMPAD8 68 Numeric keypad 8 key VK_NUMPAD9 69 Numeric keypad 9 key VK_MULTIPLY 6A Multiply key VK_ADD 6B Add key VK_SEPARATOR 6C Separator key VK_SUBTRACT 6D Subtract key VK_DECIMAL 6E Decimal key VK_DIVIDE 6F Divide key VK_F1 70 F1 key VK_F2 71 F2 key VK_F3 72 F3 key VK_F4 73 F4 key VK_F5 74 F5 key VK_F6 75 F6 key VK_F7 76 F7 key VK_F8 77 F8 key VK_F9 78 F9 key VK_F10 79 F10 key VK_F11 7A F11 key VK_F12 7B F12 key VK_F13 7C F13 key VK_F14 7D F14 key VK_F15 7E F15 key VK_F16 7F F16 key VK_F17 80H F17 key VK_F18 81H F18 key VK_F19 82H F19 key VK_F20 83H F20 key VK_F21 84H F21 key VK_F22 85H F22 key VK_F23 86H F23 key VK_F24 87H F24 key  ? 88-8F Unassigned VK_NUMLOCK 90 NUM LOCK key VK_SCROLL 91 SCROLL LOCK key  ? 92-B9 Unassigned  ? BA-C0 OEM specific  ? C1-DA Unassigned  ? DB-E4 OEM specific  ? E5 Unassigned  ? E6 OEM specific  ? E7-E8 Unassigned  ? E9-F5 OEM specific VK_ATTN F6 Attn key VK_CRSEL F7 CrSel key VK_EXSEL F8 ExSel key VK_EREOF F9 Erase EOF key VK_PLAY FA Play key VK_ZOOM FB Zoom key VK_NONAME FC Reserved for future use. VK_PA1 FD PA1 key VK_OEM_CLEAR FE Clear key

popeye · 2000-05-02

WM_KEYDOWN 的wParam很简单,就是虚键值.lParam比较烦. lParam是一个long integer,占用两个字节,共32bit.帮助上讲: 0-15  bit:击键的重复率.在键盘上按下一个键时由于会持续一段时间,所以键盘会           发出多次的信号.计算机在接受信号时会使用抖动方法确认是一次击键. 16-23 bit:扫描码 24    bit:如果是extend key,=1 25-28 bit:保留 29    bit:对于keydown消息总是0 30    bit:前一个键的状态,如果在发送消息之前已经按下,=1 31    bit:对于keydown消息总是0 我试了一下,i键的lParam按以上方法设: memo1.perform(WM_KEYDOWN,$49,$40170008);可以检测到 BTW:VK_I编译不能通过,为什么? memo1.perform(WM_KEYDOWN,vk_control,$01230008); 但是ctrl,shift就监测不到.我还看了一下keybd_event传过来的lParam,是1. 我改成memo1.perform(WM_KEYDOWN,vk_control,1);也不行. keybd_event可行.不过要先把焦点转移到memo1. memo1.setfocus; keybd_event(vk_control,0,0,0); keybd_event(vk_shift,0,0,0); keybd_event($49,0,0,0); keybd_event($49,0,KEYEVENTF_KEYUP,0); keybd_event(vk_shift,0,KEYEVENTF_KEYUP,0); keybd_event(vk_control,0,KEYEVENTF_KEYUP,0);

DreamTiger · 2000-05-06

多人接受答案了。

怎样模拟键盘输入组合键？(100分)

DreamTiger

Unregistered / Unconfirmed

Nose

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

popeye

Unregistered / Unconfirmed

wind2000

Unregistered / Unconfirmed

popeye

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

Billy

Unregistered / Unconfirmed

popeye

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

Similar threads