模拟发送CTRL+V的问题
1 Memo1 里已经有想粘贴的数据了
2在函数 procedure TForm1.hotykey(var msg: TMessage)里
if msg.LParamLo = MOD_ALT then //如果是ALT键
begin
; CurNum:=msg.LParamhi;
case CurNum of
53 :
begin
showmessage('d');
Clipboard.AsText:=self.Memo1 .Text;
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP,0);
end;
end;
/////////////
如果 加上 showmessage('d'); 让程序停顿一次 就能完成使用 ALT+1 触发 CTRL+V的功能
如果没有这个 showmessage 程序就不好使了、、、、、、、、、、
请问是怎么回事 该如何解决